test with perlcritic