while ( my $line = <FILE> ) {
   process( $line );
}