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