use vars qw/ $REC /;

    my $_foo = sub {
        ... ;
        ... $REC->(...) ... ;
        ... ;
    };

    my $foo = sub {
        local $REC = $_foo;
        $_foo->(@_);
    };

##</code><code>##

    sub foo {
        no warnings 'redefine';
        local *foo = sub {
            ... ;
            ... foo(...) ...;
            ... ;
        };

        return foo(@_);
    }

##</code><code>##

    use vars qw/ $REC /;
    sub foo {
        local $REC = sub {
            ... ;
            ... $REC->(...) ...;
            ... ;
        };

        return $REC->(@_);
    }

##</code><code>##

    sub foo {
        no warning 'redefine'; # needed if the recursive sub calls any other sub
        local *_ = sub {
            ... ;
            ... _(...) ...;
            ... ;
        };

        return _(@_);
    }