#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
use IO::File;
use Daemon;
use Web;

use constant PIDFILE => '/tmp/prefork.pid';
use constant PREFORK_CHILDREN => 5;

my $port = shift || 8080;
my $socket = IO::Socket::INET->new(
   LocalPort => $port,
   Listen => 100,
   Reuse => 1 ) 
   or die "Can't create listen socket: $!\n";

init_server(PIDFILE);

&make_new_child for ( 1 .. PREFORK_CHILDREN );

exit 0;

sub make_new_child {
   my $child = &launch_child;

   return if $child;

   do_child($socket);
   exit 0;
}

sub do_child {
   my $socket = shift;
   while(1) {
      next unless my $c = $socket->accept;
      &handle_connection($c);
      close $c;
   }
   close $socket;
}