mod_perl give 404 not_found with content

Jaap has asked for the wisdom of the Perl Monks concerning the following question:

This cannot be hard at all but my google skills fail me. In this piece of mod_perl code:

if ($sth->rows == 0)
{
        $r->status(404);
        #$r->print("Oops, there seems to be an error.");
        ModPerl::Util::exit(0);
}

I'd like to print the actual document content that comes with the 404 error but whatever i try, Apache serves some standard error document instead. Any idea how i can print the document body right from this piece of code?

Back to Seekers of Perl Wisdom