use File::Copy;
copy($old_file,$new_file);