There are different methods, but I prefer to use:

no strict 'refs';
my $old_puts = *{"puts"}{CODE};
no warnings 'redefine';
*{"puts"} = sub { ... };

puts();        # "New" puts.
&$old_puts();  # "Old" puts.
[download]

I think Memoize uses a similar construct.