Select Code to Download

no strict 'refs';
for ( keys %{"main::"} ) {
  print "$_\n" if defined *{"main::$_"}{CODE};
}

my @subs;
for my $mod ( keys %INC ) {
...
    }
}
print "$_\n" for @subs;