unlink($path) or die "unlink: $path: $!"; rename($oldpath,$newpath) or die "rename($oldpath,$newpath): $!";