my $label;
# magic setup happens here
$label = 'START';
print "$label\n"; # prints START
goto $label;
exit;
START:
print "Hello, world\n";
END:
print "Goodbye, cruel world\n";