use strict;
use warnings;




{
	my $location = "FIRST";
	sub jumparound {
		goto $location;
		FIRST: { 
			print "First segment.\n"; 
			$location = "SECOND";
			return;
		}
		SECOND: {
			print "Second segment.\n";
			$location = "FIRST";
			return;
		}
	}
}

jumparound();
jumparound();
jumparound();