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

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