use IO::Socket;
my $cmd;
my($host,$port) = ('127.0.0.1',3128);
my $proxy=IO::Socket::INET->new($host, $port) or print "Can not connect!\n";
$cmd  = "GET http://www.vkontakte.ru/index.php HTTP/1.0\n";
$cmd .= "Host: www.vkontakte.ru\n";
$cmd .= "Referer: None\n";
$cmd .= "Pragma: No-Cache\n";
$cmd .= "User-Agent: Mozilla(Perl Version)\n";
$cmd .= "\n";
$cmd =~ s/\n/\015\012/g;
print $proxy $cmd;
while(my $line = <$proxy>)
{
 print "$line\n";
}