while ( defined( my $line = $fh->getline ) ) {