use Net::Telnet;
$telnet=new::Telnet(Timeout=>60,Error=>'die',Prompt=>'/ksh\$ $/i');