perl -e '$s = rename("tags", "tags"); print STDOUT ($s ? "OK" : "FAIL"), "\n";'