use base qw(Net::Server::PreFork);
MyPackage->new({conf_file => '/home/aaron/serv.conf',})->run;

//does $dbh belong to the parent?
$dbh = DBI->connect("DBI:mysql:$DSN", $user, $password);

sub process_request {
  //do child stuff here
}