#!/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();
    }

##</code><code>##

use Modern::Perl;
use MooseX::Declare;

class Gb {
	use CGI;
	has 'q'      => (is =>'rw');
	has 'request'=> (is =>'rw');

	method start{
	    $self->{'q'} = CGI->new;
	    $self->{'request'} = $self->{'q'}->Vars;
	    print $self->{'q'}->header( -charset => 'utf-8' );
	    print '<b>Q!</b><br>';

		foreach my $key ( keys %{$self->{'request'}} ) {
            print "$key = $self->{'request'}{$key}<br>";
        }
	}
}