-------------------------
In httpd.conf:
  PerlConfigRequire /path/startup.pl
-------------------------

In startup.pl:
 ....
 my $config = <<VHOST
   <VirtualHost 127.0.0.1>
       # Config
   </VirtualHost>
 VHOST

 Apache2::Server->server->add_config([split /\n/ $config]);

-------------------------

##</code><code>##

  @vhosts = Apache2::Directive::conftree->lookup("VirtualHost")

##</code><code>##

 <Perl>
    my $config = do 'startup.pl';
    #parse config into @vhosts
    foreach my $vhost (@vhosts) {
      $VirtualHost{$vhost}=>$config->{$vhost}
    }
  </Perl>

##</code><code>##

  <Perl handler="startup.pl">
  </Perl>

##</code><code>##

  PerlOpenLogsHandler startup.pl