Help for this page
$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'return');
use Net::Telnet; ... print $telnet->errmsg . "\n"; } }