Select Code to Download

use strict;
use warnings;
...

package main;

my $src_pkg_name = 'PACKAGEA::PACKAGEB';
my $dst_pkg_name = __PACKAGE__;
...
      $ref = *$src_sym_ref{CODE  }; *$dst_sym_ref = $ref if $ref;
   }
}

print(@test, $/);
print($test, $/);
print(%tset, $/);
print($PI, $/);