foreach $leaf (glob("$startdir/*")) {
    if (-d $leaf) {
      $trash = GetDirs($leaf);
      push(@dirs,$leaf);
    }
  }