sub cgiapp_get_query {

    my $self = shift;
    use CGI ('-no_xhmtml');
    my $q = CGI->new;
    return $q;
}