$ perlcritic 1178655.pl
Code before strictures are enabled at line 1, column 1.  See page 429 of PBP.  (Severity: 5)
Variable declared in conditional statement at line 5, column 3.  Declare variables outside of the condition.  (Severity: 5)