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

##</code><code>##

unlink($path) or die "unlink($path): $!";
warn "unlike($path) succeeded";

rename($oldpath,$newpath) or die "rename($oldpath,$newpath): $!";
warn "rename($oldpath,$newpath) succeeded";