> perl
package BLA;
$\="\n";
open my $fh,">",'/tmp/tst';
print "globname: ", *$fh{NAME};
print "globpkg: " , *$fh{PACKAGE};
print 'Stashkey $BLA::{$fh} found? ', scalar grep {/\$fh/} keys %BLA::;
__END__
globname: $fh
globpkg: BLA
Stashkey $BLA::{$fh} found? 0