Select Code to Download

my $p = 'Package';
my $c = 'print(__PACKAGE__);';  # Some code
eval "package $a; $c";