mh, du bist doch der betreiber von netnaxx, oder?

falls nein: verzeih die verwechslung.
falls ja: falls du auch in diesem script statt "select count(*)" ein "select *" und dann ein zählen der gelieferten resultate machst - änder das, das dürfte dir schon mal einiges an performance bringen, auch unabhängig von mod_perl, was natürlich allgemein auch so ein sehr guter tipp ist.