open FH, '<', 'foobar.txt' or die "Bleah!\n$!";
frobnicate( $_ ) while <FH>;
close FH;

##</code><code>##

{
    open my $fh, '<', 'foobar.txt' or die $!;
    frobnicate( $_ ) while <$fh>;
}