use AnyEvent::HTTP; use AnyEvent; my @urls = qw( http://www.zol.com/detail/cell_phone/QiKU/26847001.html?spm=634.42184 ); my $cv = AnyEvent->condvar; for my $url ( @urls ) { $cv->begin; http_get $url, sub { my ($data, $headers) = @_; foreach my $k (keys %$headers){ print $k," : ",$headers->{$k},"\n"; } $cv->end; } } $cv->recv;