The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use XS::APItest qw(labelconst);
my $z = "";
$z .= labelconst FOO:;
$z .= labelconst BAR:
	;
$z .= labelconst BAZ
	:;
$z .= labelconst
	QUUX:;
$z;