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