IO::Lambda::HTTP

lambda-http.pl

use strict;
use URI;
use HTTP::Request;
use IO::Lambda qw(:all);
use IO::Lambda::HTTP qw(http_request);

sub request($) {
    my $url = URI->new($_[0]);
    my $req = HTTP::Request->new(GET => $url, [Host => $url->host]);
    $req->protocol('HTTP/1.1');
    $req;
}

par->wait(
    map {
        my $request = request $_;
        lambda {
            context $request;
            http_request {
                my $response = shift;
                if (ref $response) {
                    print $request->url, ': ', $response->status_line, "\n";
                }
                else {
                    print $request->url, ': ', $response, "\n";
                }
            }
        }
    } qw(http://perlmonks.org http://www.google.ru/ http://perl.org/ http://perl.com)
);