Select Code to Download

use Net::Telnet ();

...
$t->login($username, $passwd);
@lines = $t->cmd("who");
print @lines;