test.pl

#!/usr/bin/perl
use Mojo::Base -strict;
use Mojo::UserAgent;
use Mojo::IOLoop;

my $ua = Mojo::UserAgent->new(max_redirects => 10);
my $delay = Mojo::IOLoop->delay(sub {
  my $delay = shift;
  say $_->req->url . " -> " . $_->res->code for @_;
});
$ua->get('http://slashdot.org'   => $delay->begin);
$ua->get('https://www.google.com' => $delay->begin);
$ua->get('http://www.cnn.com' => $delay->begin);
$delay->wait;