find( { preprocess => sub { return grep { -d } @_ }, wanted => sub { print }, }, @dirs);