my @dirs = grep { !/^\.\.?\z/ && -d "$dir/$_" } readdir($dh);