Select Code to Download

    foreach my $entry (sort values %:: )
    {
...
        print "sub    is defined\t" if defined &{$entry};
        print "\n";
    }

use strict;
use sig_bla;
sub bar
...
print "$$\n";
&bar();

package sig_bla;
use strict;
use Data::Dumper;
...

1;