sub cgier {
 my $q = CGI->new;
 my $query = $q->param('query');
 my $response = app_logic( $query );
 print $q->header;
 print $response;
}