my $original_proto = prototype("${package}::${sub_name}");
my $original_sub = \${"${package}::${sub_name}"};
*{"${package}::${sub_name}"} = sub HOW_DO_I_GET_$original_proto_IN_HERE? { return $original_sub->(@_); };

##</code><code>##

my $original_proto = prototype("${package}::${sub_name}");
my $original_sub = \${"${package}::${sub_name}"};
*{"${package}::${sub_name}"} = eval qq{sub $original_proto { return \$original_sub->(\@_); } };