why not run it under debug and see what happens?

my $Debug=1;

unless ($ftp = Net::FTP->new($host,Debug=>$Debug)) {     
    die "No FTP for you!\n\n"; 
}
[download]

--- demerphq
my friends call me, usually because I'm late....