Select Code to Download

package Foo;
sub bar { print "Original Foo::bar\n"; }
...
Foo::bar();
switcheroo("Foo", "bar");
Foo::bar();