use Scalar::Util 'set_prototype';

my $name = ...;

my $old;
my $new = sub { ...; goto &$old };
{
  no strict 'refs';
  $old = \&$name;
  set_prototype(\&$new, prototype $old);
  no warnings 'redefine';
  *$name = $new;
}