#!/usr/bin/perl

use strict;
use warnings;

use Xerl;
use FCGI;

while (FCGI::accept >= 0) {
	my Xerl $xerl = Xerl->new( config => 'config.txt' );
	$xerl->run();
}