use AnyEvent::HTTP;

my $cv = AnyEvent->condvar;
my @urls = map { chomp; $_ } <DATA>;
for my $url (@urls) {
    $cv->begin;
    http_get $url, sub {
        my ($body, $hdr) = @_;
        warn "[$hdr->{Status}:$hdr->{Reason}] ",$url," (",length($body),")\n";
        $cv->end;
    };
}
$cv->recv;

__DATA__
some urls