perl -e 'print "chown $_:www $_ -R\n" for grep { -d } <*>;'