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