test2.pl

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

# Synchronize non-blocking requests
my $ua    = Mojo::UserAgent->new;
my $delay = Mojo::IOLoop->delay(sub {
  my ($delay, $mojo, $minion) = @_;
  say $mojo->res->dom->at('title')->text;
  say $minion->res->dom->at('title')->text;
});
$ua->get('http://metacpan.org/search?q=mojo'   => $delay->begin);
$ua->get('http://metacpan.org/search?q=minion' => $delay->begin);
$delay->wait;