use strict;
use warnings;

my $s = Server->new(@ARGV);
$s->background(
               SSL_cert_file => '/etc/ssl/apache2/server.crt',
               SSL_key_file  => '/etc/ssl/apache2/server.key',
              );

exit;

package Server;

use base 'HTTP::Server::Simple::CGI';

sub net_server { 'Net::Server::PreFork' }