#!/bin/perl -w
use Net::Telnet;
$telnet=new::Telnet(Timeout=>60,Error=>'die',Prompt=>'/ksh\$ $/i');
$telnet->open('192.168.10.220');
$telnet->login('patil','patil');
@lines = $telnet->cmd('who');
print "@lines\n";