use File::Copy;
copy($oldfile, $newfile);