my $s;
while ( defined ( $s = myReadLine( $fh ) ) )