grep { -d "$dir/$_" } readdir $dh;