Select Code to Download

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.  S
+ee pages 208,278 of PBP.  (Severity: 1)
...
Useless interpolation of literal string at line 10, column 14.  See pa
+ge 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)