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;