You're right of course. However, after making sure goto wasn't flagged at any level, I took some artistic license to maximize comedic value and minimize snippet length. ;-)
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)
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, co
+lumn 16. Unnamed numeric literals make code less maintainable. (Sev
+erity: 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 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)
