sub next {
    my $self = shift;
    while( 1 ) {
        if (  @{ $self->{output} }  ) {
            my $line = shift @{ $self->{output} };
            return $line;
        }