One FAQ I get a lot is how to make Net::FTP do mget/mput. I suggest the following:

foreach my $file (@files)
{
    # Or get...
    $ftp->put($file) or die "Error putting $file: ", $ftp->message;
}
[download]