Perlcritic --brutal fixes.
Perlcritic --brutal fixes.