Select Code to Download

>perl -wle"while(($n,$g)=each %Internals::) { print $n if *$g{CODE} }"
hash_seed
...
rehash_seed
SvREADONLY
SvREFCNT

#!perl -wl
my @todo = *::;
...
   print for map /^\*(.*)/, grep *$_{CODE}, @sl;
   push @todo, grep !/\*main::main::/, grep /::$/, @sl;
}

ActivePerl::BUILD
ActivePerl::CHANGELIST
...
Tie::Hash::NamedCapture::SCALAR
Tie::Hash::NamedCapture::STORE
Tie::Hash::NamedCapture::flags

ActivePerl::BUILD
ActivePerl::CHANGELIST
...
utf8::valid
PerlIO::Layer::NoWarnings
PerlIO::Layer::find

DynaLoader::boot_DynaLoader
Internals::HvREHASH
...
utf8::valid
PerlIO::Layer::NoWarnings
PerlIO::Layer::find