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