91.76.59.174:8363
95.72.95.179:8906
95.78.249.233:8608

#!/usr/local/bin/perl
use IO::Socket::Socks;


my $proxy = new IO::Socket::Socks(ProxyAddr=>"91.76.59.174",
                                ProxyPort=>8363,
                                ConnectAddr=>"perl.org",
                                ConnectPort=>80,
                                AuthType=> 'none',
                                Timeout => '20',
                                SocksDebug => '1' );

if (!defined($proxy))
{
    die($SOCKS_ERROR);
    exit(1);
}

print $proxy "GET / HTTP/1.1\r\n".
             "Host: perl.org\r\n".
             "Connection: close\r\n\r\n";

my $databuf='';

$databuf .= $_ while <$proxy>;

close $proxy;

print $databuf;