our $foo = "foo";
{
	local $foo = "bar";
	sub quz {
		print "\$foo = $foo\n";
	}
}
quz();  # prints "$foo = foo"