#....
print "About to rename [$path] to [$target]\n";
rename ($path,$target) or die "Could not rename: $!";
#...