Select Code to Download

C-x h C-u M-| perltidy

(defun my-perltidy ()
  "Call perltidy on the current buffer.
...
                             "perltidy"
                             nil
                             t)))

(add-hook 'cperl-mode-hook
          '(lambda ()
             (local-set-key '[(control c) (control t)] 'my-perltidy)))