system("mv",$filename,$new_filename) or die("could not rename $filename to $new_filename: $!\n");