#!/usr/bin/perl
use IO::Socket;
open (base, "proxy_list_with_ports.txt") || die "аблом";
while ( <base> )
{ @proxy = <base>; }

$z=chomp(@proxy);
for ($g=0; $g < $z; ){
n:
$g++;
$path="твоя_ссылка";
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://microsoft.com";
print $socket "User-Agent: Osel Explorer 7.0\n";
print $socket "Pragma: no-cache\n";
print $socket "Cache-Control: no-cache\n";
print $socket "Connection: close\n\n";
}