use mod_perl_hooks;

for my $hook (mod_perl::hooks()) {
    if (mod_perl::hook($hook)) {
        print "$hook is enabled\n";
    }
    else {
        print "$hook is not enabled\n";
    }
}