$tnet = Net::Telnet->new(
           Host => $host,
           Port => $port,
           Dump_Log => $dumplog,
           Input_Log => $inputlog,
      );