Select Code to Download

#!perl
use Data::Dumper qw/Dumper/;
...
    open my $fh,"<",'/tmp/tst';
    print 0+($outer == $fh),": ", Dumper $fh;
}

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