use Net::Telnet (); $t = new Net::Telnet (Timeout => 10, Prompt => '/bash/$ $/'); $t->open("sparky"); $t->login($username, $passwd); @lines = $t->cmd("who"); print @lines;
http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm
use Net::Telnet (); $t = new Net::Telnet (Timeout => 10, Prompt => '/bash/$ $/'); $t->open("sparky"); $t->login($username, $passwd); @lines = $t->cmd("who"); print @lines;
http://search.cpan.org/~jrogers/Net-Telnet-3.03/lib/Net/Telnet.pm