Perl::Critic level 4 errors fixed.