Select Code to Download

{
  package A;
...
  ...
}
# &x reset after leaving block

$old_coderef = \&x;
 
...
... # (but think about the omen ;-)
 
*x = $old_coderef;