Package::Name::runonce();

##</code><code>##

for (keys %INC) {
    s!/!::!g;
    s/\.pm$//;
    eval { $_::runonce() };
}