#!/usr/bin/perl

use warnings;
use strict;

use ForkedUA;
use HTTP::Request::Common;

my $f = ForkedUA->new(processes => 5);

foreach my $i (1..3) {
    $f->register(GET "https://www.verisign.com");
    $f->register(GET "http://yahoo.com");
    $f->register(GET "http://yahoo.com/hobined");
}
    # 20 Sekunden Timeout setzen
$f->ua->timeout(20);

    # Alle Seiten parallel einholen
my @responses = $f->process();

for my $resp (@responses) {
    if($resp->is_success) {
        my $len = length($resp->content());
        print length($resp->content()), 
              " Bytes von ",
              $resp->request->uri->as_string(),
              " geholt.\n";
    } else {
        print $resp->request->uri->as_string(),
              ": Fehler ", $resp->code, " (",
              $resp->message, ")\n";
    }
}