Select Code to Download

    sub foo {
        my $foo = 1;
...
    }

    foo();

    sub foo {
        local $foo = 1;
...
    $foo = 5;
    foo();
    bar();