Select Code to Download

use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10,
...
$t->login($username, $passwd);
@lines = $t->cmd("who");
print @lines;

$ref = $obj->buffer;

$data = $obj->get([Binmode    => $mode,]
                  [Errmode    => $errmode,]
                  [Telnetmode => $mode,]
                  [Timeout    => $secs,]);