perl -MFile::Basename -e 'print "chown ". basename($_) .":www $_ -R\n" for map {grep {-d} <$_/*>} grep {-d} <*>;'