pts/2 ryan@pi:~/src/shorts $> cat goto.pl #!/usr/bin/env perl use 5.010; use strict; say 'Thunderbolt and lightning, very, very frightening me'; # say 'Galileo' for 1..5 has nothing on this: my $galileos = 5; galileo: say "Galileo"; goto galileo if --$galileos; figaro: say 'Figaro magnifico'; pts/2 ryan@pi:~/src/shorts $> perlcritic goto.pl goto.pl source OK