my $t = new Net::Telnet (Timeout => 10, 
      Dump_log => "telnetdump.txt");