my $all=get_response("copyorders_multiple.pl", "refID=".&trim($license));
my ($data)=$all=~/\n\n(.*)$/s; 
sub get_response {
  local %ENV=%ENV; 
  my ($cgi, $CMD) = @_;
 
  ## prepare proper (CGI) environment
  $ENV{QUERY_STRING} = $CMD;
  $ENV{REQUEST_METHOD} = 'GET';
  $ENV{GATEWAY_INTERFACE} = 'CGI/1.1';
  # add more as needed
  open(CGI, "$cgi |") or die "Can't exec $cgi, $!";
  local $/ = undef;
  my $res = <CGI>;
  close(CGI) or die "Error running $cgi, $!";
  return $res;
}