my @subs;
for my $mod ( keys %INC ) {
    $mod =~ s!/!::!g;
    $mod =~ s/.pm$/::/;
    {
        no strict 'refs';
        for ( keys %{$mod} ) {
            push @subs, $mod . $_ if defined *{$mod . $_}{CODE};
        }
    }
}
print "$_\n" for @subs;