{
  my @dirlist;

  sub wanted {
    return unless -d $_;
    push(@dirlist,$File::Find::name);
    return(@dirlist);
  }
}