всем привет! while (1) { sleep 5; my $rv = http_request(); } sub http_request { my $cv = AnyEvent->condvar; my %arv; $cv->begin(sub { shift->send(\%arv) }); ...