#!/usr/bin/perl
use strict;
use warnings;

sub jump {
    my $place = 'START';
    goto $place;
}
START:
print "Hello, world\n";
jump();