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