my $old = \&foo;
*foo = sub { ...; goto &$old };