The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

test (int n)
{
	while (1) {
		if (1>0) {
			break;
		}
		else if (2> 0){
			continue;
		}
	}
}