.Slip (00:46:41 25/02/2008)
#!/usr/bin/perl
use IO::Socket;

$addr='http://ya.ru/';
$serv='ya.ru';
$proxy='127.0.0.1';
$port='8080';

for $i (1..100) {
print "[Step][$i][";
$socket=IO::Socket::INET->new(PeerAddr=>$proxy,PeerPort=>$port,Timeout=>5 ) || break;
print $socket "GET $addr HTTP/1.1\n";
print $socket "Host: $serv\n";
print $socket "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)\n";
print $socket "Connection: close\n\n";
while ($answer = <$socket>) { print "."; }
print "]\n";
}


Как ето запустить, чёт не узнаю язык програмирования...

.Slip (00:46:43 25/02/2008)
:ddd

=== (00:46:56 25/02/2008)
*ROFL*

.Slip (00:48:27 25/02/2008)
действительно, какой то странный яп. замаскированный особенно в первой строчке

=== (00:48:57 25/02/2008)
бля я подумал что это пакет ;DDDDD