pts/2 ryan@pi:~/src/shorts $> perlcritic -1 goto.pl No package-scoped "$VERSION" variable found at line 1, column 1. See page 404 of PBP. (Severity: 2) Return value of flagged function ignored - say at line 6, column 1. See pages 208,278 of PBP. (Severity: 1) Code before warnings are enabled at line 6, column 1. See page 431 of PBP. (Severity: 4) 5 is not one of the allowed literal values (0, 1, 2). Use the Readonly or Const::Fast module or the "constant" pragma instead at line 9, column 16. Unnamed numeric literals make code less maintainable. (Severity: 2) Label "galileo" is not all upper case at line 10, column 1. See pages 45,46 of PBP. (Severity: 1) Return value of flagged function ignored - say at line 10, column 10. See pages 208,278 of PBP. (Severity: 1) Useless interpolation of literal string at line 10, column 14. See page 51 of PBP. (Severity: 1) Label "figaro" is not all upper case at line 13, column 1. See pages 45,46 of PBP. (Severity: 1) Return value of flagged function ignored - say at line 13, column 9. See pages 208,278 of PBP. (Severity: 1)