goto FizzBuzz

#!/usr/bin/perl
$i=1;
start:
goto print_fizz if $i % 3 == 0;
goto print_buzz if $i % 5 == 0;
print $i;
goto print_newline;
print_fizz: print 'Fizz';
goto print_buzz if $i % 5 == 0;
goto print_newline;
print_buzz: print 'Buzz';
print_newline: print "\n";
$i = $i + 1;
goto end if $i == 100;
goto start;
end:;