system('cls');

use IO::Socket::Socks;
my $proxy_addr = "128.10.10.15";
my $proxy_port = 3128;
my $conn_addr = "http://www.mail.ru/";
my $conn_port = 80;
my $socks = new IO::Socket::Socks(ProxyAddr=>$proxy_addr,
                                  ProxyPort=>$proxy_port,
                                  ConnectAddr=>$conn_addr,
                                  ConnectPort=>$conn_port,
                                  ) or die "Can't create Sock: $!";
 
print $sock "GET ",$conn_addr," HTTP/1.0\n\n";
 
while($line = <$sock>) {
 
  print $line;
 
} 
$socks->close()