Parallel HTTP request in Perl 5

p5-parallel-http.pl

use common::sense;
use LWP::UserAgent;
use HTTP::Request::Common;
use POSIX qw(:sys_wait_h);
use Test::More;

my @urls = qw(
    http://hoge.fuga/
    http://fuga.hoge/
    http://fooo.baar/
);

pipe my $read, my $write;

for my $url (@urls) {
    my $pid = fork // die $!;

    if ($pid == 0) {
        close $read;
        say "Making request to $url...";
        my $ua = LWP::UserAgent->new;
        my $res = $ua->request(GET $url);
        say "Got response from $url with status code: @{[ $res->code ]}";
        say {$write} "URL: $url (Code: @{[ $res->code ]})";
        exit;
    }
}

close $write;

my @result = <$read>;

waitpid -1, WNOHANG;

is @result, 3;

done_testing;