use Net::FTP;
my $hostname=xxxx';
my $user='xxxx';                     #  <<----------- USER
my $password='xxxx';
my $ftp=Net::FTP -> new($hostname) or die ("Connect failed");
$ftp->login($username,$password);    #  <<---------- USERNAME
$ftp->quit;
[download]

User, Username, pick one. :) And always use -w as a compile option, and always use strict.

Yes, yes, it's two more things to type in, but if you apply great craftmanship to your code, you will be rewarded with something that works the way you think it should much more often than not.

--t. alex

"There was supposed to be an earth-shattering kaboom!" --Marvin the Martian