Quoting from the Net::Telnet pod:

Many command interpreters echo back the command sent. In most situations, this method removes the first line returned from the remote side (i.e. the echoed back command). See cmd_remove_mode() for more control over this feature.

It might help if you explained your problem in more detail. You might provide some code or at least try to characterize when cmd() returns the command you sent. You could also provide information like what shell is being used on the remote side and what command you see this behavior with.

-sauoq
"My two cents aren't worth a dime.";

use Net::Telnet (); 

my $tn; # TELNET connection initilized 

sub TNcommand {
          my($command) = $_[0];
          &RunLog (" : Running command = $command");
          $tn->cmd(String => $command, Prompt => '/\>$/');
          return;
}

sub TNprint {
          my($command) = $_[0];
          &RunLog (" : Running print command = $command");
          $tn->print("$command");
          return;
}

sub TNwriteFile {
          my($out_fname) = $_[0];
          my($NextLine) = "1";
          open (SAIDA, ">$out_fname");
          while ($NextLine) {
              if ($NextLine = $tn->getline(Timeout => 15)) {
                $NextLine =~ s/\r//;
                        print SAIDA $NextLine;
            }
          }
          close SAIDA;
          return;
}
[download]

Neil Watson
watson-wilson.ca

I'm going to throw in my two cents and agree with Mr. Watson here. You should definitely be using the Net::SSH rather then the Net::Telnet. SSH is far more secure.

There are times where the device in question is not SSH capapble or aware. For example: some older terminal servers, switches and hubs. If you are unfortunate enough to be in an environment where they never throw outmoded stuff away like I do you may end up writing scripts to deal with them.

It ain't time to deprecate Net::Telnet yet.

---

Peter L. Berghold	Brewer of Belgian Ales
Peter@Berghold.Net	www.berghold.net
Unix Professional