use File::Copy qw/ move /;
move($orig_file, $new_file);