Select Code to Download

(defun perl-sub (name)
  "Insert a new subroutine"
...
  (goto-char (match-end 0))
  (insert name)
  (search-forward "("))

 '(cperl-close-paren-offset -4)
 '(cperl-continued-statement-offset 2)
...
 '(cperl-indent-parens-as-block t)
 '(cperl-label-offset 0)
 '(cperl-tab-always-indent t)