a.pl

use Mojo::UserAgent;
use Modern::Perl;

my $ua = Mojo::UserAgent->new;
my $delay = Mojo::IOLoop->delay;

$delay->begin;
$ua->get(
  'tempi.re/ip' => sub {
    warn Mojo::UserAgent->new->get('tempi.re/ip')->res->body;
    $delay->end;
  }
);

$delay->begin;
$ua->get(
  'mojolicio.us' => sub {
    warn Mojo::UserAgent->new->get('mojolicio.us')
      ->res->dom->find('#introduction ul li:first-child');
    $delay->end;
  }
);

$delay->wait;