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>";
        }
	}
}