my $telnet = new Net::Telnet ( Timeout=>10, 
Prompt=>'/Bilbo>$/i', 
Errmode=>'die', 
Dump_Log=>'dump.txt', 
Input_log=>'input.txt', 
Output_log=>'output.txt', 
);