(defun perl-dbg (name)
  "Insert a debugging print statement"
  (insert "use Data::Dumper qw( Dumper );\nwarn Dumper [ ]\n")
  (search-backward "[ ")

##</code><code>##

 '(cperl-close-paren-offset -4)

##</code><code>##

 '(cperl-continued-statement-offset 2)

##</code><code>##

 '(cperl-indent-level 4)

##</code><code>##

 '(cperl-indent-parens-as-block t)

##</code><code>##

 '(cperl-label-offset 0)

##</code><code>##

 '(cperl-tab-always-indent t)