sub psgier {
 my( $env ) = @_;
 my $req = Plack::Request->new( $env );
 my $query = $req->param('query');
 my $res = app_logic( $query );
 return $res;
}

##</code><code>##

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