Select Code to Download

sub get_response {
  my ($cgi, $query) = shift;
...
  close(CGI) or die "Error running $cgi, $!";
  return $res;
}