our $foo;
local $foo = 1;
foo();
local $foo = 2;
foo();
sub foo {
    print "foo: $foo\n";
}