This looks better than the first two suggestions;
alternatively, you can replace the CORE::die function with
your own; to start see:

Bekman, Stas. mod_perl guide, chapter 3.12

humbly,
novitiate