Could you just redefine Carp::shortmess and Carp::longmess? If not, you can walk the symbol table starting with something like this:

for (grep /(?<!main)::/, keys %::) {
    # do stuff...
}
[download]