sub foo { print "foo\n" }

{
    local *foo = sub { print "bar\n" };
    foo();
}

foo();
__END__
bar
foo