Use perl-critic rules.