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,
);