#!/usr/bin/perl

use strict;

use FCGI;
use SL::Dispatcher;

SL::Dispatcher::pre_startup();
my $request = FCGI::Request();
SL::Dispatcher::handle_request('FastCGI') while $request->Accept() >= 0;

1;