use Mojo::UserAgent;
use Mojo::IOLoop;

# Parallel non-blocking requests
my $ua = Mojo::UserAgent->new;

$ua->get('http://metacpan.org/search?q=mojo' => sub {
  my ($ua, $mojo) = @_;
  ...
});

$ua->get('http://metacpan.org/search?q=mango' => sub {
  my ($ua, $mango) = @_;
  ...
});

# Start event loop if necessary
Mojo::IOLoop->start unless Mojo::IOLoop->is_running;