# !/usr/bin/perl
use   Net::Telnet;   
$t=new Net::Telnet(Timeout=>30,  Errmode=>'die');
$t->open('myhostname');   
print   "ssssssss\n";   
$t->waitfor('/login: $/i');
$t->print('myusername');
$t->waitfor('/password: $/i');
$t->print('mypasswd');
print   "hhhhhhhh\n"; 
my @myoutput=$t->cmd("who");
print @myoutput;
print   "ttttttt\n";