#! usr/bin/perl

use IO::Socket;

my $server = "pop3.mail.ru";
my $port = "110";
my $socket = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp");

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

       # открываем файл
       open (base, "proxy.lst") || die "Error! Can't open proxy list\n";
       while ( <base> )
       { @proxy = <base>; } # считываем данные в масив

       $z=chomp(@proxy); # кол-во записей в файле
       for ($g=0; $g < $z; ){
       n:
       $g++;
       $path="http://www.fitl.biz/ru/bs/b.php?cmd=go&from=44257&said=34315";
       chomp($string = @proxy[$g]); #записываем запись в строку и убираем
       # символ перевода каретки
       @conn=split(/:/,$string); # превращаем с список строку данных
       # разделенных двоеточием
       $server = @conn[0]; # адрес прокси
       $port = @conn[1]; # порт прокси

       $socket=IO::Socket::INET->new( PeerAddr => $server, PeerPort => $port, Photo => tcp)
       or goto n;


       $i++;
       system("cls ; clear");
       print "sent : $i";

       print $socket "GET $path HTTP/1.1\n";
       print $socket "Host: $server\n";
       print $socket "Accept: */*\n";
       print $socket "Http-Referer: http://www.rushteam.h1.ru/index.htm\n";
       print $socket "User-Agent: Internet Explorer 6.0\n";
       print $socket "Pragma: no-cache\n";
       print $socket "Cache-Control: no-cache\n";
       print $socket "Connection: close\n\n";
       }