Anonymous Monk,

Take a look at the Net::Telnet documentation:

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

should be

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

Hope this helps.

Martin