get_some_url_async.pl

use strict;
use warnings;
use Data::Dumper;

use Time::HiRes;
use AnyEvent;
use AnyEvent::HTTP;


my @list = (
	'https://www.kleos.ru/',
	'https://news.gnezdo.ru/',
	'https://shop.gnezdo.ru/',
	'https://www.gnezdo.ru/',
);

my $time_info = {};
my $time_start = Time::HiRes::time(); 

my $cv = AnyEvent->condvar;

for my $url(@list){
	
	
	print "get url [$url]\n";
	
	$cv->begin;
	
	http_get $url, sub{
		my ($html) = @_;
		
		$time_info->{$url} = Time::HiRes::time()-$time_start;
		
		$cv->end;
	};
}


$cv->recv;

print Dumper($time_info);