$telnet = new Net::Telnet ( Timeout=>10,
   Errmode=>'die',
   Prompt => '/# $/i',
   Input_log => 'input.log',
   Dump_log  => 'dump.log',
);