>  perl
use Data::Dumper qw/Dumper/;
use Data::Dump;
open my $fh,"<",'/tmp/tst';
dd $fh;
dd $::{'$fh'};
print Dumper $fh;
__END__
\*main::$fh
undef
$VAR1 = \*{'::$fh'};

##</code><code>##

dd *{'::$fh'};
# => *main::$fh