my $critic = Perl::Critic->new(-severity=>1);