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

##</code><code>##

my @files =
   grep { -f }
   glob("*");