Select Code to Download

perl -MDevel::Symdump -E "package A{sub asub{1}}package B::B{sub bsub{
+1}};; $sym=Devel::Symdump->rnew('main'); 
for $p($sym->packages){ 
...

B::B::bsub found in package B::B at -e line 1.