(cperl-set-style "BSD")
  (setq cperl-indent-parens-as-block t
        cperl-close-paren-offset -4)