There can be n number of ways to copy or move a file using Perl programming. Like invoking system command or using Linux or windows system command through backtick. But I found using a module called "File::Copy", nice and cleaner way to accomplish the task. It will take care of Operating System issues and other dependencies.
And the good thing is, it's available in core Perl!

So we will use File::Copy module and will call copy() function to copy the file and move() function to move the files.

Ok then, How it works?