[perl] Saludos y dudas...

[francisco@intelnet.net.gt]

Saludos lista..
Disculpen tantas preguntas pero hasta ahora le estoy entrando a perl. estoy 
trarando de desarrollar un monitor de red y tengo la siguiente duda:

usando el modulo de telnet hago lo siguiente:

   use Net::Telnet();
   $pop = new Net::Telnet(Telnetmode => 0);
   $pop->open(Host => $hostname,
              Port => 110);

Lo que estoy haciendo es verificando si el pop esta arriba, cuando esta activo 
todo esta bien, el problema es cuando no logra conectarse quisiera sacar un 
mensaje y terminar el programa, pero no se como comprobar que fallo la conexion.
ya probe con lo siguiente pero no funciona:

    die "Error la conexion fallo $!";
 
Agradeceria cualquier ayuda.
gracias.


IntelNet 
http://webmail.intelnet.net.gt

--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl