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