Select Code to Download

$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'return');

use Net::Telnet; 

...
        print $telnet->errmsg . "\n";
    }
}