## --------------
 use Net::Telnet ();
	$t = new Net::Telnet (Timeout => 10,
                          Prompt => '/bash\$ $/');
        $t->open("192.168.0.1");

	$t->waitfor('/login: $/i');
	$t->print('root');
	$t->waitfor('/Password:$/i');
	$t->print('root'); 
##-------------------