opendir DIR, $some_directory or
  die "can't read $some_directory: $!";
@dirList = grep -d "$some_directory/$_", readdir DIR;
closedir DIR;