Форум АНТИЧАТ - Показать сообщение отдельно - проблеми с установкой модулей

Все дело в том, что по адресу 75.69.203.194:15689 обычный прокси сервер, а не Socks 5. IO-Socket-Socks только для socks 5.

Вот рабочий пример кода для работы с обычной проксей:

Код:

use IO::Socket;
use IO::Socket::INET;

my $conn_addr = "http://www.mail.ru/";

my  $sock = IO::Socket::INET->new(PeerAddr => '75.69.203.194',
                                 PeerPort => 'http(15689)',
                                 Proto    => 'tcp') or die "Can't create Socks: $!";

print $sock "GET ",$conn_addr," HTTP/1.0\n\n";

while($line = <$sock>) {
print $line;
}

Проверял. Все работает.