my @dirs = grep { -d "$base/$_" and $_ ne "." and $_ ne ".." } readdir(DIR);