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