sub cgiapp_get_query {  
        my $self = shift;

        # Include CGI.pm and related modules
        require CGI;

        $CGI::DISABLE_UPLOADS = 1; # Disable uploads

        # Set Maximum number of bytes per post
        $CGI::POST_MAX = 1024; 

        # Get the query object
        my $q = CGI->new();

        return $q;
  }