$ perl -le 'open $f, "+>", undef;
print readlink "/proc/self/fd/" . fileno $f'
/tmp/.nfs0004821b00000353