#!/usr/local/bin/perl
use Modern::Perl;
use FCGI;
use Gb;
my $request = FCGI::Request();
my $Gb = new Gb;
    while($request->Accept() >= 0) {
	$Gb -> start();
    }