I'm trying write FCGI script gb.fcgi

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

Gb.pm

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>";
        }
    }
}
[download]

it is working! but only once :) for example i run this script with gb.fcgi?tyr=3 it writes
Q!
tyr = 3
when i change string on gb.fcgi?tyr=4 it writes again
Q!
tyr = 3
for changing anything a need to restart apache what i doing wrong?