Help for this page

Select Code to Download

Select or download this

my $host = "host";
my $user = "name";
...
    print $chan3 "who\n";
    print "THREE-b: [$_]\n" while <$chan3>;
    $chan3->close;

Select or download this

ONE:  [/usr/local]
TWO:  [user    pts/40       Jun 26 07:04 (192.168.1.247)]
...
TWO:  [user    pts/43       Jun 26 07:57 (192.168.1.194)]
THREE-a: [Enter user name: Enter user name: ]
THREE-b: [Enter user name: ]