my @dirs = grep {-d "$dir/$_"} readdir($gdh);