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

##</code><code>##

my $var = 
    $new->function( arg1 => 1, );