#!/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";
   }