move($file_path, "$dest_dir/$new_file_name") or die "Failed to move file $file_path: !\n";
unlink $file_path or warn "Failed to delete original file $file_path: $!\n";