Placate Perlcritic