Perl back up script for files and multiple databases, ftp to backup server