my $fh = $self->{FH};
    while (defined($line = <$fh>)) {