$ perl -e 'print "###", `chown foo /`, "###\n"'