use File::Copy;

move($base_dir.$top_file, $new_dir.$top_file);