Hi cc it's look like a homework and because this will be hard someone help you on rewritting you code.

I did't ckeck all the code, but like it's working ok, maybe you problem is if the file1 still on remote directory. To check if this file still there you can use '@Files = ftp->ls ($destination)' to get files list, and look at @Files to check it.

You are looking for a good example of NET::FTP try ftp_mirror.pl