problème avec net::http

Bonjour à tous, je cherche à faire un programme qui me permette de connaitre si un site est disponible (en consultant l'entête de réponse: 200=OK, 404= indispo..)
j'ai un problème avec le code ci-dessous: est-ce que l'adresse est trop longue? comme y remédier?

merci de votre aide


use Net::HTTP;

$s = Net::HTTP->new(Host => "lists.slimdevices.com/archives/checkins/2004-April/001738.html") || die $@;
$s->write_request(GET => "/");
my($code, $mess, %h) = $s->read_response_headers;
print $code;

j'ai oublié de préciser que le message d'erreur est Bad Hostname

Je n'ai jamais utilisé ce module (j'utilise plutôt LWP) mais si tu avais plutôt :

Code:

---

1 2 3

$s = Net::HTTP->new(Host => "lists.slimdevices.com") || die $@; $s->write_request(GET => "/archives/checkins/2004-April/001738.html");

---

je pense que ca pourrait déjà un peu plus le faire ;)

@+
Mr6

merci, ça marche en procédant ainsi!!

a+