Select Code to Download

    use vars qw/ $REC /;

...
        local $REC = $_foo;
        $_foo->(@_);
    };

    sub foo {
        no warnings 'redefine';
...

        return foo(@_);
    }

    use vars qw/ $REC /;
    sub foo {
...

        return $REC->(@_);
    }

    sub foo {
        no warning 'redefine'; # needed if the recursive sub calls any
+ other sub
...

        return _(@_);
    }