...
    while ( my $line = readline $result->{fh} ) {
...