Select Code to Download

$ (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

$ (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)