#!/usr/bin/perl
# important, the MyHacks must be the first!
use MyHacks;
use HTTP::Async;
use HTTP::Request;

my $async = HTTP::Async->new;

$async->add( HTTP::Request->new( GET => 'https://mail.google.com/') );

while( my $resp = $async->wait_for_next_response )
{
    print "Got: ", $resp->code, " ", $resp->message, "\n";
}