Fight MS ;-) (Score 1)

#!/usr/bin/perl -w
use LWP::UserAgent;
use strict ;
my $ua = new LWP::UserAgent;
$ua->agent('Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.5) Gecko/20011012') ;
my $i=0 ;
for(;;)
{ my $url="http://www.msn.com" ;
my $req = new HTTP::Request 'GET' => $url ;
$req->header('Accept' => 'text/html');
my $res = $ua->request($req);
if ($res->is_success)
{ $i++ ;
print $i."\n" ;
#print $res->content."\n\n" ;
}
else
{ print 'Error: '.$res->code .' '.$res->message; ;
}
}