Problem mit parallel::user::agent

[rlebek]

Hallo Forum,

ich bin kein Perl Freak und ich habe folgendes Problem mit dem o.g. Modul. Ich habe vor eine kleine Metasuchmaschine zu schreiben und habe momentan folgenden Code:


#!/usr/bin/perl

require LWP::Parallel::UserAgent;
use HTTP::Request;


print "Content-type: text/plain\n\n";


# display tons of debugging messages. See 'perldoc LWP:ebug'
#use LWP:ebug qw(+);



my $reqs = [
HTTP::Request->new('GET', "http://www.altavista.de"),
HTTP::Request->new('GET', "http://www.google.de"),]; #usw.

my $pua = LWP::Parallel::UserAgent->new();
$pua->in_order (0); # handle requests in order of registration
$pua->duplicates(0); # ignore duplicates
$pua->timeout (30); # in seconds
$pua->redirect (1); # follow redirects


foreach my $req (@$reqs) {
print "Registering '".$req->url."'\n";
if ( my $res = $pua->register ($req) ) {
print STDERR $res->error_as_HTML;
}
}
my $entries = $pua->wait();

foreach (keys %$entries) {
my $res = $entries->{$_}->response;

$content.=$res->content;}


Jetzt möchte ich den Wert $content im Script weiterverarbeiten, aber das geht nicht. Was mache ich da falsch???

Hat jemand von Euch eine Idee??

Danke und viele Grüsse
RON