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);

##</code><code>##

   my @r = $t->print(String => $cmd, Timeout => 60);
   ($prematch, $match) = $t->waitfor(String => 'More? ', Timeout=>60) or die("MORE NOT FOUND");