Select Code to Download

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

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