$ perlcritic 1140661.pl
Code before strictures are enabled at line 3, column 1.  See page 429 of PBP.  (Severity: 5)