what perl::critic has to say