The perl script is using File::Copy to copy/rename files, unlink to delete them, and tar/scp to move the files around.

I don't get it. What's the point of copying the files with File::Copy if all you want is to move the files from one system to another - which you are doing with scp already?