Net:HTTP : timeout alors que le serveur répond

Salut, je bricole un script Perl qui test que le serveur web en paramètre soit en vie.
Je précise, je connais pas bien perl, et j'ai trouvé la doc de Net:HTTP très succinte.

Code:

---

1 2 3 4

my $http = Net::HTTP->new("$host:$port") || die $@; $http->write_request(GET => 'unepage.htm');

---

je reçois une réponse "Net:HTTP Timeout" instantanée.

Or, depuis le même serveur qui exécute ce script perl je ping le serveur web, je fais un lynx dessus... sans problèmes.

Est-ce qu'il y a un moyen de dire un temps de connexion limite avant de jeter un timeout ? du genre « si dans les 3 secondes t'es pas connecté, alors oui jette un timeout. Mais si t'arrives à te connecter en une seconde, c'est OK. »

Merci d'avance

arf je suis un :boulet:

y'avait dans le script une initialisation de $port à 8080, avec le port 80 ça marche mieux :P

A ce propos, j'ai besoin de me faire un mini serveur http en perl, est ce que net::http pourrait faire l'affaire? sinon, y a t'il un module qui peut faire ça?

crée plutôt un autre topic, parce que celui-ci est marqué pour délestage. Et comme j'y connais rien en perl, j'aurai du mal à t'aider.