Resolve the link before passing it to perltidy.

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

You could also modify perltidy to resolve links using Cwd's realpath.

In both cases, the backup will appear next to the linked file.