use Selfloader;
    ....
    __DATA__

##</code><code>##

<Location /perl-status>
    SetHandler perl-script
    PerlHandler Apache::Status
    Order deny,allow
    Deny from all
    Allow from 127.0.0.1
</Location>

Alias /perl/ "/path/to/some/folder/"
<Location /perl/>
    Options ExecCGI
    SetHandler perl-script
    PerlHandler Apache::Registry
    PerlHeaderParserHandler "sub { tie *STDOUT, 'Apache' unless tied *STDOUT; }"
    PerlSendHeader On
    Order deny,allow
    Deny from all
    Allow from 127.0.0.1
</Location>

PerlRequire mod_perl_startup.pl

##</code><code>##

#!/usr/bin/perl

use strict;
use lib qw(/usr/local/lib/perl); 
use CGI::Simple qw(-newstyle_urls);
use Apache::DBI();
use DBI();
use DBD::mysql();
1;