my $label = 'START';
goto $label;
START:
print "Hello, world\n";
END:
print "Goodbye, cruel world\n";