{
    local *FILE; # declare every FILE symbol ($FILE, @FILE, as well as the handle) local
    open FILE, "<", "foo";
}

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

##</code><code>##

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