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

##</code><code>##

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