$ perlcritic -4 1140661.pl
Code before strictures are enabled at line 3, column 1.  See page 429 of PBP.  (Severity: 5)
Unreachable code at line 9, column 1.  Consider removing it.  (Severity: 4)
$