Select Code to Download

use AnyEvent::Loop;
use AnyEvent::HTTP;
http_get 'http://yahoo.com', sub { my ($body, $hdr) = @_; die $hdr->{U
+RL} };
AnyEvent::Loop::run;

use AnyEvent::Loop;
use AnyEvent::HTTP;
...
        http_get "http://$url", sub { say STDERR $url };
}
AnyEvent::Loop::run;