Perl::Critic :-)