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

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