use Mojo::UserAgent;
use Mojo::IOLoop;

my @url = qw{ http://example.com  http://perlmonks.org };
my $ua = Mojo::UserAgent->new;

Mojo::IOLoop->delay(
    sub { 
        my $delay = shift;
        $ua->get($_ => $delay->begin) foreach @url 
    },
    sub { 
        my ($delay, @tx) = @_;
        print  "'",         $_->req->url, 
               "' => '",    $_->res->text, 
               "'\n" 
            foreach @tx;
    }   
)->wait;