use closefail qw(:standard); use closefail { die "I'm not feeling so well: $!" }; #### { use closefail; open my $thing, $what or die "..."; # ... } # <- still in effect as this block ends #### { use closefail; { open my $thing, $what or die "..."; # ... } }