my $x = 0;
my $sub1 = q{ print "$x\n" };
my $sub2;
{
	my $x = 10;
	$sub2 = q{ print "$x\n" };
}
eval $sub1; die $@ if $@ ne "";
eval $sub2; die $@ if $@ ne "";