PERL FTP file sync