ANTICHAT — форум по информационной безопасности, OSINT и технологиям

use strict;
use warnings;
use IO::Socket::Socks;

my $socks = new IO::Socket::Socks(
            ProxyAddr => '98.203.236.60',
            ProxyPort => 43981,
            ConnectAddr => '2ip.ru',
            ConnectPort => 80
    ) or die 'can\'t conect to proxy';

print $socks "GET / HTTP/1.1\n"
           . "Host: 2ip.ru\n\n";

print while <$socks>;

$socks->close();