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

##</code><code>##

        if ( ! @{ $self->{dirs} } ) {
            return;
        }
        my $dir = shift @{ $self->{dirs} };
        if (-d $dir) {

##</code><code>##

          if ($oldir){
            $self->{level} += 
                ($dir=~tr!/!/!) - ($olddir=~tr!/!/!);
          }
          $olddir=$dir;