AnyEvent::HTTP
#!/usr/bin/perl use strict; use warnings; use utf8; use 5.010000; use AE; use AnyEvent::HTTP; my @urls = ( 'http://www.google.co.jp', 'http://www.yahoo.co.jp', ); local $AnyEvent::HTTP::MAX_PER_HOST = 5; my $cv = AE::cv(); for my $url (@urls) { $cv->begin; http_get $url, sub { my $data = shift; print "##### $url #####\n" . $data . "\n"; $finished++; $cv->end; }; } $cv->recv;