Select Code to Download

(defun my-cperl-hook ()
  "What to run when cperl-mode is turned on"
...

  (define-key cperl-mode-map [f6] 'perltidy-whole-buffer)
)

(custom-set-variables
  ;; custom-set-variables was added by Custom -- don't edit or cut/pas
+te it!
...
  ;; ...
 '(cperl-mode-hook (quote (my-cperl-hook)))
)