qwurx [shmem] ~> perl
open $fh, "+>", undef or die "Can't create anonymous storage: $!";
$file = "/proc/$$/fd/" . fileno $fh;
print "$file => ", readlink( $file ), $/;
__END__
/proc/26628/fd/3 => /tmp/PerlIO_eVAtFg (deleted)