Select Code to Download

#!/usr/bin/perl
use warnings;
...
                   Dumper(${'main::'}{$symbol}) };
    say "$symbol => $def" if $def =~ /sub/;
}

#!/usr/bin/perl
use warnings;
...
                   *{"main::$symbol"}{CODE} };
    say "$symbol => ", Dumper $def if $def;
}