Ответ:  Наша помощь самим себе....
#!/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)...