Wie kann man mit Perl eine Url auf Existenz prüfen ?!

[Alexander Schäfer]

hallo

info "# GET URL $url ... "; # Meldung
  $ua = LWP::UserAgent->new();      # User-Agent erzeugen

# Request erzeugen
  $request = HTTP::Request->new('GET', $url);
                                    # Netzzugriff ausführen
  $response = $ua->request($request);

if($response->is_error) {         # Fehlerprüfung
      err "ERROR Code: ", $response->code(),
     " Message: ", $response->message(), "\n";
  }

$doc = $response->content();      # Dokument OK
  info "OK\n";

frag mich nicht zuviel davon.. das ist aus einem Script und ich glaube es sollte das machen was du willst... glaub.