sub cgiapp_get_query {
    my $self = shift;

    require CGI::Simple;
    my $q = CGI::Simple->new();
     
    return $q;
 }