Help for this page
printf "%s\n", $telnet->errmsg();
## Connect to server, timing out if it takes too long. eval { ... or die "problem connecting to \"$host\", port $port: $!\n"; }; alarm 0;