Return code from Net::Telnet

[EAnnie]

Hi
Do you know how can I get the return code of the command called in the cmd method of the net::telnet package.

ex: $t->cmd ("ls"
lets say the ls return 3 as a return code
what is the way to get the return code "3"

tks in advance
Annie

 

[raider2001]

The only way I know of is to do something like this:

$out = $t->cmd("ls || echo FAILED");
if ($out =~ /FAILED/) {
    print "'ls' failed\n";
}