Select Code to Download

(defun perltidy ()
  "Run perltidy on the current region or buffer."
...
    (shell-command-on-region (point) (mark) "perltidy --profile=/home/
+foo/.perltidyrc -q" nil t)))

(global-set-key [(f5)] 'perltidy)