How to get the output from telnet commands in Perl?

[jeetendra G]

use Net::telnet
telnet->open($host);
telnet->logint("rrot","rut"
$a=telnet->cmd("ls");

using telnet i am running this command to remote machine its is connecting to remote machine.
but the output of "ls" is not coming in $a.
a is having the status of the ls command it is not having results .a is having 0 or 1.
ouput is not coming in a

[toolic]

Try to capture the cmd output into an array variable instead of a scalar variable:

my @lines = $telnet->cmd("ls");

This is discussed in the cmd section of the Net::Telnet documentation.