OK got it to work with the following code:

$telnet = new Net::Telnet ( Timeout=>10, Port=>7300, Errmode=>'die');
$telnet->open('localhost')
[download]

Thanks for your help, it is appreciated