#!/usr/bin/perl -w
use POSIX qw[ _exit ];
use Time::HiRes qw[ usleep ];
use threads ( stack_size => 4096 );
use threads::shared;

$|++;

use HTTP::Request;
use LWP::UserAgent;

my $started :shared = 0;
my $ended   :shared = 0;

my $monitor = async {
    printf "\rStarted: $started Ended: $ended\t" 
        and uleep 100 while $ended < 500;
    print "\nAll done";
};

my $TEST_URL = "http://www.blairhippo.com/";

threads->create( 'execute_request', $TEST_URL )->detach for 1 ..500;

$monitor->join;

_exit( 0 );


sub execute_request {
    { lock $started; ++$started; }
    my $url = shift;
    my $request = HTTP::Request -> new ('HEAD', $url);
    my $agent = LWP::UserAgent -> new();
    my $response = $agent -> request($request);
    { lock $ended; ++$ended; }
}