$telnet = new Net::Telnet ( Timeout=>5,Errmode=>'die', Prompt => '/\>/i', Input_log=>"input.log", Dump_log=>"dump.log", Output_log=>"output.log");
$telnet->open('ip Address');
$telnet->login('user', 'password');
 print $telnet->cmd(String   => $cmd_3g_login_node, Prompt => '/\ABC35>/i');
 
output:
command timed-out attest.pl at line 3