$ (cd /tmp; perl -e 'symlink("foo","bar") or die $!; open F, ">bar" or die $!; rename "foo", "blah" or die $!; print readlink("/proc/$$/fd/".fileno(F)),$/'; rm blah bar)
/tmp/blah