get_response.pl

#!/usr/bin/env perl 

use strict;
use warnings;

use AnyEvent::HTTP::LWP::UserAgent;
use Data::Dump;
use Time::HiRes;

STDOUT->autoflush;

my $ua = AnyEvent::HTTP::LWP::UserAgent->new;
my $ae = AnyEvent->condvar;
my %res;

$ae->begin;
while (my $url = <STDIN>) {
    chomp $url;
    $ae->begin;
    $res{ $url }->{'time'} = Time::HiRes::time();
    $ua->get_async($url)->cb(sub{
            my $r = shift->recv;
            $res{ $url }->{'time'} = Time::HiRes::time() - $res{ $url }->{'time'};
            $res{ $url }->{'code'} = $r->code;
            printf "GET RESPONSE CODE %d FOR %s\n", $r->code, $url;
            $ae->end;
        });

}
$ae->end;
$ae->recv;

dd \%res;

example: $cat list.txt | ./get_response.pl