#!usr/bin/perl
use Net::Telnet ();
 $telnet = new Net::Telnet ( Timeout=>10,Errmode=>'die');
 $telnet->open('192.168.1.1');
 $telnet->waitfor('/login: $/i');
 $telnet->print('root');
 $telnet->waitfor('/password: $/i');
 $telnet->print('root');
 $telnet->waitfor('/\$ $/i');
 $telnet->print('who');
 $output = $telnet->waitfor('/\$ $/i');
 print $output;