I would also suggest (in case you are tempted to use a system command) that you use File::Copy for the copy operation. It's part of the standard Perl distribution.

Update: I noticed that I forgot to mention why you should use File::Copy. Besides being portable across multiple operating systems, it is also easier to use than the usual alternatives (such as using `cp` or creating your own routine to read a file and write it in another location).

Impossible Robot