#!/usr/bin/perl

use LWP::Parallel;
use HTTP::Request;
use LWP::Debug qw(+);

my ($res);
my $reqs=[
HTTP::Request->new('GET', 'http://www.somesite.com/index.html')
];

my $pua = LWP::Parallel::UserAgent->new();
$pua->max_hosts(15);
        $pua->max_req(15);
        $pua->in_order(1);

foreach my $req (@$reqs) {
  my $a=$pua->register ($req);
  print "Registered: $req->url\n";
}
my $entries = $pua->wait();

foreach (keys %$entries) {
     my $res = $entries->{$_}->response;
     my $content = $res->message;
     # not sure about previous line
     print $content;
}