Select Code to Download

    use Selfloader;
    ....
    __DATA__

<Location /perl-status>
    SetHandler perl-script
...
</Location>

PerlRequire mod_perl_startup.pl

#!/usr/bin/perl

use strict;
...
use DBI();
use DBD::mysql();
1;