HTTP::Request - wie kann man das "warten bis übermittelt" umgehen?

[Niklaus]

Hi Perl-Gurus

Situation:
Ich sauge mir via cgi eine beliebige Seite herunter. Die Seite gibt jedoch (eine lange Zeit) weder OK noch FEHLER zurück (zB. ein anderes cgi für die Aktien-Kurse).
Wie kann ich nun die Abfrage nach x Sekunden anhalten? (Sozusagen ein Timeout)

Folgende Zeile wartet bis alles angekommen ist:
$response = $ua->request($request);

##########################  Beispiel:  ###################################
require LWP::UserAgent;
require HTTP::Request;

print <<EOT;
Content-Type: text/html\r\n\r\n
via cgi:<br>
EOT

$url = 'http://www.bluesprof.com/index.html'; # beliebig
$ua = new LWP::UserAgent;
$ua->proxy('http',$ENV{'HTTP_PROXY'});

$request = new HTTP::Request 'GET', $url;
$response = $ua->request($request);   ################ wartet bis übermittelt!
if ($response->is_success) {
   &handleResponse($response);
} else {
   print "Error!";
   print $response->error_as_HTML;
}

sub handleResponse {
   my($response)=@_;
   my(@lines)=split(/\n/,$response->content());
   foreach (@lines) { print "$_"; }
}
########################################################################

Hoffentlich kann mir jemand bei dieser Knacknuss helfen.

Gruss Niklaus