use vars qw/ $REC /;

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

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