parallel.pl

## parallel.pl
#!/usr/bin/perl
use strict;
use warnings;
use lib qw(./lib);
use HTTP::Request;
use IO::Lambda qw(:lambda);
use IO::Lambda::HTTP qw(http_request);
use Time::HiRes qw(time);

my @urls = (
    "https://www.google.com",
    "http://www.windley.com/",
    "https://www.bing.com",
    "http://www.example.com",
    "http://www.wetpaint.com",
    "http://www.uh.cu",
);

my $now = time;

sub report
{
    my ( $response, $url ) = @_;
    if ( ref($response) and ref($response) eq 'HTTP::Response') {
        my $url = sprintf "%-25s", $url;
        my $len = sprintf   "%8s", length $response->content;
        my $et  = sprintf "%5.3f", time - $now;
        print "$url has length $len and loaded in $et ms\n";
        $now = time;
    } else {
        print "$url has problems: $response\n";
    }
}

lambda {
    context map {
        my $url = $_;
        lambda {
            context (IO::Lambda::HTTP-> new( HTTP::Request-> new( GET => $url )));
            tail { report( shift, $url ) }
        }
    } @urls;
    &tails();
}-> wait;