package Localize;

sub new {
    my ($self, $sub, $coderef) = @_;
    no strict 'refs';
    local $^W;

    my $oldval = \&$sub;
    *$sub = $coderef;
   
    bless [ $sub, $oldval ], $self;
}

sub DESTROY {
    my $self = shift;
    no strict 'refs';
    local $^W;

    my ($sub, $coderef) = @$self;
    *$sub = $coderef;
}

#############
package main;

sub foo {
    print "Real foo!\n";
}

foo();
{
    my $l = new Localize "main::foo", sub { print "Fake foo!\n" };
    foo();
}
foo();

__END__
Real foo!
Fake foo
Real foo!