$ perl -le 'symlink("foo","bar") o
r die $!; open F, ">bar" or die $!; print readlink("/proc/$$/fd/".fileno(F))'
/tmp/foo