perltidy.el

(defun perltidy ()
  (interactive)
  (save-excursion
    (mark-whole-buffer)
    (shell-command-on-region (point) (mark) "perltidy -q" nil t)
    (message "Tidied")))

(global-set-key "\C-c t" 'perltidy)