sub cgiapp_get_query {

    my $self = shift;
    use CGI ('-utf8');
    my $q = CGI->new;
    $q->charset('UTF-8');
    return $q;
}