#!/usr/bin/env perl

# http://www.perlmonks.org/?node_id=1192821

use strict;
use warnings;
use MCE::Loop;
use LWP::Simple;
use feature qw(say);

my @urls = qw(http://perlmonks.org http://www.whitehouse.org);

MCE::Loop::init {
    max_workers => 'auto',
    chunk_size  => 1,
    interval    => 0.008,
    posix_exit  => 1,
    use_threads => 0
};

my $fetch = sub {
    eval { head(shift) };
    warn $@ if $@;
};

my %result = mce_loop {
    MCE->yield;
    my @data = $fetch->( $_ );
    MCE->gather( $_ => \@data );

}
@urls;

{
    no warnings qw(uninitialized);

    while ( my ( $url, $data ) = each %result ) {
        say $url;
        say for @$data;
        say q(---);
    }
}