# Code using iterator:
    while(  <INPUT>  ) {
        process_line( $_ );
    }

# Code using call-back:
    File::ProcessLines(
        \*INPUT,
        sub { process_line($_) }
    );