no strict refs;
my $sub = *{Some::Package::function}{CODE};
*Some::Package::function = sub {
  my $retval = [ $sub->(@_) ];
  print "wrappers don't kill, I do";
  return $retval;
};
use strict refs;