my $t = new Net::Telnet(Telnetmode => 1, Errmode => 'return');
   $t->prompt('/C:\\\\(.*)>/i');
   $t->open(Host => '192.168.0.10');

   $ok = $t->login('myUsername', 'myPassword');

   my $cmd = "blah blah blah (...)"; # 1287 characters of a VALID command
   my @r = $t->cmd(String => $cmd, Timeout => 60);