use AnyEvent;
use AnyEvent::HTTP;

my $cv = AnyEvent->condvar;
my $timer = AnyEvent->timer(after=>1,interval=>1,cb=>sub{ print STDOUT "."; flush STDOUT; });
my $sig = AnyEvent->signal (signal => "INT", cb => sub { $cv->send; });
http_get "http://www.google.com/", sub {
     print "Get completed (".$_[1]->{Status}.")";
     $cv->send;
     };
$cv->recv;