$ touch foo

$ chmod 0 foo

$ ls -li
total 0
11314128152 ---------- 1 ikegami pg1404028 0 Dec 11 10:11 foo

$ perl -e'rename("foo", "bar") or die $!'

$ ls -li
total 0
11314128152 ---------- 1 ikegami pg1404028 0 Dec 11 10:11 bar

$ chmod a-w .

$ perl -e'rename("bar", "baz") or die $!'
Permission denied at -e line 1.

$ ls -li
total 0
11314128152 ---------- 1 ikegami pg1404028 0 Dec 11 10:11 bar