my $cmd_fh = open_pipe_command( $cmd );
...
if( $cmd_fh->can_read ) {
    my $line = $cmd_fh->readline or last;
    ...