sub X::foo { pp(\@_) }

##</code><code>##

BEGIN { *X::foo = sub { pp(\@_) }; }