Select Code to Download

sub next {
    my $self = shift;
...
            my $line = shift @{ $self->{output} };
            return $line;
        }

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

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