Fetching URL titles in parallel (blocks)

gistfile1.txt

use v6;

use LWP::Simple;
use HTML::Parser::XML;
subset PositiveInt of Int where * > 0;

sub MAIN(PositiveInt :$timeout = 60) {
    my Str @urls = <
        http://www.rakudo.org/
        http://www.google.com/
        http://www.perlmonks.org/
        http://www.reddit.com/
        http://www.yahoo.com/
    >;

    my @promises = @urls.map({
        start {
            my $document = LWP::Simple.get($_).perl;
            my $parser   = HTML::Parser::XML.new;
            my $xml      = $parser.parse($document);
            say "$_ - { $xml.getElementsByTagName('title')[0][0] }";
        }
    });
    await Promise.allof(Promise.in($timeout), @promises);
}