test.pl

#!/usr/bin/perl
use Mojo::Base -strict;
use Mojo::UserAgent;
use Mojo::IOLoop;
my @urls = (
  'http://cnn.com',
  'http://foxnews.com'
);

my $ua = Mojo::UserAgent->new(max_redirects => 10);
my $delay = Mojo::IOLoop->delay(sub {
  my ($delay, $mojo, $minion) = @_; # Figure this magic voodoo out... 
  say $mojo->req->url . " -> " . $mojo->res->code;
});
$delay->on(finish => sub {
  say "All urls downloaded";
});

$ua->get( $_ => $delay->begin) for @urls;
$delay->wait;