Copying a file of 6Gb means you have to write 6Gb of data. That's going to take a long time. Instead of copying and removing, people tend to 'move' a file instead. That's fast when it's on the same filesystem, and on most modern OSses, it falls back to copy and delete if the data has to moved to a different filesystem.

But I don't really understand your question. You can't really speed up the process - at least not by using different statements in your program (you might be able to tune your OS that copying huge files goes faster). I don't know why you are considering a timer, and I've no idea what you mean by "copying until EOF to delete the file once it finished copying".

I would do the thing you're doing from the command line, and skip the Perl part:

    find M:/Directory -name '*.BAK' \
         -exec mv {} 'I:/(Directory0)/(Directory1)/(Directory2)/{}' \;
[download]

Abigail