use Net::Telnet;
 
my $telnet3;
$telnet3 = new Net::Telnet(timeout => 10,
                Errmode => 'die'
                Prompt => '/</');
 
$telnet3->open('10.200.16.58'); 
$telnet3->login('IATEST', 'TESTBED');
@lines = $telnet3->cmd("who");