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