Main(@ARGS);
exit(0);
sub Main {
   my $query = CGI->new;
   my $ret = eval { DoSql($query); };
   if( $@ ){
      print_error_response();
   } else {
      print_results($ret, $query);
   }
}