my $fh = $result->{fh};
    
    while ( my $line = <$fh> ) {