Ответ: Наша помощь самим себе....
#!/usr/bin/perl
use Net::FTP;
use strict;
package main;
my $host="ftp.host.where.my.files";
my $PATH_TO_FILES="path/to/files/on/ftp/host";
my $LOCAL_PATH_TO_FILES="path/to/local/files";
my (@r, @list, @files, @_FTP, @_PATH, @LOCAL, $ftp, %list)...