Исходное сообщение
"Socks In Perl" Отправлено Raist, 01-Окт-06 19:25
необходимо написать отправку писем через сокс сервер. Использую модуль Net::SOCKET:SOCKS Судя по докуменатции он возвращает обьект который потом можно использовать как обычный обьект класса Net::SOCKET. Тоесть я пишу (например)        my $socket = new IO::Socket::Socks(ProxyAddr=>'192.1.1.1',                                            ProxyPort=>'1111',                                            ConnectAddr=>'microsoft.com',                                            ConnectPort=>25,                                            SocksDebug=>1);         sysread ($socket,$buf,4096);         print $buf; И на экран должно вывести нечто вроде 220 Welcomo to Bill SMTP Server Если конечно все нормально создалось (ну положим у нас есть проверка сокета на undef) ...Короче говоря нифига не работает :) Сокет создается, но ничего из него не читает  :(( Почему и что делать? Может этот модуль нормально не работает и нужно воспользоватся другим? Подскажите хотя бы в какую сторону копать плз....