Select Code to Download

{
    local *FILE; # declare every FILE symbol ($FILE, @FILE, as well as
+ the handle) local
...
}

print "open" if fileno(FILE); # nope.

{
    open my $fh, "<", "foo";
    print $fh "blah";
}
# $fh is gone here