I have write thte following code and it does connect via FTP on a digital machine:

#!/usr/bin/perl -w 

use Net::FTP; 
$ftp = Net::FTP->new("*****", Debug => 1);
$ftp->login("vpn01",'******'); 

exit 0;
[download]

The ***** represent hide data for the porpouse of the example. I nn my case did coneect and worked correctly. I took out the warnings package (I dont have it installed). Also I will recommend you to use "strict" and always defined variables with the instruction "my" before using them.

Francisco Jaen
www.cgi.com