Help for this page

Select Code to Download

Select or download this

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

Select or download this

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