#!/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;
}

##</code><code>##

LWP::UserAgent::new: ()
LWP::Parallel::UserAgent::max_hosts: (15)
LWP::Parallel::UserAgent::max_req: (15)
LWP::Parallel::UserAgent::in_order: (1)
LWP::Parallel::UserAgent::register: (http://www.somesite.com/index.html, [undef], [undef], [undef])
Registered: HTTP::Request=HASH(0x805780c)->url
LWP::Parallel::UserAgent::wait: 
        Current Server: 0 [  ]
        Pending Server: 1
LWP::Parallel::UserAgent::_make_connections_in_order: ()
LWP::Parallel::UserAgent::_check_bandwith: (LWP::Parallel::UserAgent::Entry=HASH(0x805b03c) [http://www.somesite.com/index.html] )
LWP::Parallel::UserAgent::on_connect: (http://www.somesite.com/index.html)
LWP::Parallel::UserAgent::_connect: (LWP::Parallel::UserAgent::Entry=HASH(0x805b03c) [http://www.somesite.com/index.html] )
LWP::Parallel::UserAgent::init_request: -> (HTTP::Request=HASH(0x805780c)) [GET http://www.somesite.com/index.html]
LWP::Parallel::UserAgent::init_request: GET http://www.somesite.com/index.html
LWP::UserAgent::_need_proxy: Not proxied
LWP::Parallel::Protocol::implementor: Try autoloading LWP::Parallel::Protocol::http
LWP::Parallel::UserAgent::init_request: <- (undef, [undef], LWP::Parallel::Protocol::http=HASH(0x805b168), 180, 1)
LWP::Parallel::UserAgent::on_failure: (http://www.somesite.com/index.html)
Can't locate object method "new" via package "LWP::Parallel::Protocol::http::Socket".