perl -wl
sub foo { print "foo" }
foo();
{
    no warnings "redefine";
    local $main::{"foo"} = sub { print "bar"};
    foo();
}
foo();
__END__
foo
bar
foo