Fehlerabfrage bei getprint

[Didi]

Hallo,
ich habe inzwischen ein Muster mit dem UserAgent gefunden

  
#!/usr/bin/perl -w  
use strict;  
  
....  
  
      use LWP::UserAgent;  
      my $ua = new LWP::UserAgent;  
      my $url = 'http://www.test.de/Muster.inc';  
      my $request = new HTTP::Request ('HEAD', $url);  
      my $response = $ua->request($request);  
      print  $response->is_success;  
      print "<br>";  
     print $response->message;  
     exit(3);  

Wenn die Datei "http://www.test.de/Muster.inc" vorhanden ist,
kommt als Ergebnis
1
OK

Wenn ich aber den Namen einer nicht vorhandenen Datei angebe,
hätte ich als Ergebnis erwartet
0
... Fehlertext ..

allerdings gerät das Programm in eine Schleife bis ich es schließlich abbreche!
Im Log stehen entsprechend viele Zeilen, dass die Datei nicht gefunden wurde.
Im Windows (XP) Taskmanager ist der Prozess perl.exe entsprechend oft aufgeführt.
Woran kann dies liegen?