our $\="\n";

sub test {
	print "Entering test";
	@_=("Back");
	goto &tsub;
  Back:
	print "Back to test";
}

sub tsub  {
	my $label=shift;
	print "Entering tsub";
	goto $label
}

test();