#!perl
use Data::Dumper qw/Dumper/;

open my $fh,"<",'/tmp/tst';
my $outer=$fh;

print 0+($outer == $fh),": ", Dumper $fh;
{
    open my $fh,"<",'/tmp/tst';
    print 0+($outer == $fh),": ", Dumper $fh;
}

##</code><code>##

1: $VAR1 = \*{'::$fh'};
0: $VAR1 = \*{'::$fh'};