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