opendir(DIR, $some_dir) || die "Can't opendir $some_dir: $!";
@subdirs = grep { -d "$some_dir/$_" } readdir(DIR);
closedir DIR;