use strict;
use warnings;
use Time::HiRes qw( time );
use HTTP::Request;

use POE qw(Component::Client::HTTP Component::Client::Keepalive);

my $start = time;
my $urls_left = 12;

my $cm = POE::Component::Client::Keepalive->new( keep_alive => 1 );

POE::Component::Client::HTTP->spawn(
	Alias     => 'ua',
	Timeout   => shift || 10,
	FollowRedirects => 2,
	Streaming => 0,
	ConnectionManager => $cm,
);

##</code><code>##

1) poerbook:~/projects/poco-client-http% make && perl perlmonks.perl 20
Response (200) Downloads done in: 7.075767993927 seconds.
Run done in: 8.70663499832153 seconds.