my @subdirectories =
   grep { not /^\.\.?$/ }
   grep { -d }
   glob("*");