#! perl -slw
use strict;
use Time::HiRes qw[ time ];
use LWP::Parallel::Useragent;
use HTTP::Request;

my $start = time;

my $pua = LWP::Parallel::UserAgent->new();
$pua->timeout( 10 );

$pua->register(  HTTP::Request->new( 'HEAD', "http://$_" ) ) while <>;

my $entries = $pua->wait;

printf "Took %.6f seconds\n", time - $start;

__END__
c:\test>pua-head-urls urls.list
Took 1333.616000 seconds