for q in * ; do perltidy $(readlink -e "$q") ; done