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

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