Select Code to Download

our $foo;
local $foo = 1;
...
sub foo {
    print "foo: $foo\n";
}

my $foo;
$foo = 1;
...
sub foo {
    print "foo: $foo\n";
}

foo(1);
foo(2);
...
    my ($foo) = @_;
    print "foo: $foo\n";
}