#!./perl -Dpxstl
#!./perl -w

foo: while (1) {
	bar: {
		goto bar;
		bar: ;
	}
	print "here\n";
}