a.pl

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

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

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

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

Mojo::IOLoop->start;