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