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