use v5.10;

use Mojo::IOLoop;
use Mojo::Useragent;

use Mojo::Util qw(dumper);

my @urls = ();

while (<DATA>) {
    chomp;

    push(@urls, $_);
}

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

Mojo::IOLoop->delay(
    sub {
        my $delay = shift;

        $ua->get($_ => $delay->begin) for @urls;
    },
    sub {
        my $delay = shift;

        say $_->res->dom->at('title')->text for @_;
    }
)->wait if @urls;

say("All DONE");

__DATA__
https://www.google.com
http://mojolicio.us