sub subA {
    print "You called subA\n";
}


{
    my $oldsub = \&subA;
    my $wrap = sub {
        print "You called the wrapper around subA\n";
        goto &$oldsub;
    };
    *main::subA = $wrap;
}

subA();

__END__
You called the wrapper around subA
You called subA