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