Select Code to Download

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