perl -e 'sub foo {print "foo\n" } package Foo; my $code = "*main::foo = sub {print \"bar\\n\" }"; eval $code; package main; foo()'
bar