use File::Copy
copy('c:/temp/test.txt, 'c:/temp/test.txt.orig');