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

sub jump {
    tie my $place, 'main';
    goto $place;    
}
START:
print "Hello, world\n";
jump();
print "I am jumping over this spot\n";
END:
print "Goodbye, cruel world\n";

sub TIESCALAR { bless {}, $_[0] }
sub STORE     { print "Read only\n"; }
sub FETCH     { goto END; }