Select Code to Download

use Data::Dump;
$FOO::ONE = 1;
...
  *{$a}{HASH}{ONE} = \1;
  $a;
}

use Data::Dump::Streamer;
$FOO::ONE = 1;
*BAR:: = *FOO::;
...
$GLOB1 = \*{'::FOO::'};
*{'::FOO::'} = { ONE => *FOO::ONE };
*FOO::ONE = \do { my $v = 1 };