Select Code to Download

*foo = *bar;
*foo = Symbol::gensym
*foo = \*bar;
local *foo;

%pkg:: = (foo => *bar, %pkg::);

package pkg;
$save_old_foo = \*foo;
...
...code using replaced glob goes here...
delete $pkg::{foo};
*pkg::foo = $save_old_foo;