#!/usr/bin/perl

use IO::Socket;

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

	   $z=chomp(@proxy); # кол-во записей в файле
	   for ($g=0; $g < $z; ){
	   n:
	   $g++;
	   $path="http://site.ru/blabla.php=1";
	   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.site.ru/\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";
	   }