our $x = 1;
my $f = sub { $x };
{
	local $x;
	$x = 2;
	print $f->(), "\n";
}
print $f->(), "\n";