#!/usr/bin/perl -w
my $cgi='/home/huck/cvs/cgi-bins/bt-bin/ut-active.pl'; 
my $parms='txtstats-1=1'; 
my $all=get_response($cgi,$parms);
#my $all=get_response("/full/path/to/copyorders_multiple.pl", "refID=".&trim($license));
my ($data)=$all=~/\n\n(.*)$/s; 
#print $data; 
print $all; 
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;
}

##</code><code>##

ScriptAlias /bt-bin/ /home/huck/cvs/cgi-bins/bt-bin/

<Directory /home/huck/cvs/cgi-bins/bt-bin/>
Options Indexes FollowSymLinks
 AllowOverride None
 Order allow,deny
 Allow from all
 AllowOverride None
 Satisfy Any
# Require all granted
    Options +ExecCGI
    AddHandler cgi-script .cgi .pl
</Directory>