find . -name '*.pm' -exec perltidy -b -bext='/' {} \;