sub get_response {
  my ($cgi, $query) = shift;
 
  $ENV{QUERY_STRING} = $query;
  $ENV{REQUEST_METHOD} = 'GET';
  $ENV{GATEWAY_INTERFACE} = 'CGI/1.1';

  open(CGI, '-|', $cgi) or die "Can't exec $cgi, $!";
  local $/ = undef;
  my $res = <CGI>;
  close(CGI) or die "Error running $cgi, $!";
  return $res;
}