(defun perl-sub (name)
  "Insert a new subroutine"
  (interactive "*sName: ")
  (insert "sub  {\n\n\n\n}\n")
  (previous-line 4)
  (indent-for-tab-command)
  (insert "my () = @_;")
  (search-backward "sub ")
  (goto-char (match-end 0))
  (insert name)
  (search-forward "("))

##</code><code>##

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