You are not logged in.
EpS
Senior Member




|
|
Source code |
1 2 3 4 5 6 7 |
use Net::Telnet ();
$t = new Net::Telnet (Timeout => 10,
Prompt => '/bash\$ $/');
$t->open("sparky");
$t->login($username, $passwd);
@lines = $t->cmd("who");
print @lines;
|

-