#!/usr/bin/perl -w
use strict;
use CGI;
use DBI;
use HTML::Template;

#Open template file
my $template = HTML::Template->new(filename => 'C:\Inetpub\wwwroot\cgi-bin\input_accepted.tmpl');

my $cgi_query = new CGI;

my @cgi_parameters = $cgi_query->param();

foreach my $returned_param (@cgi_parameters){
	my $data = $cgi_query->param($returned_param);
	$returned_param =~ s/\d//g;	#Strip digits from parameter so that filenames match
	open(my $RESULTS_FILE, ">>C:/Inetpub/wwwroot/cgi-bin/results/$returned_param.txt");
	print $RESULTS_FILE $data . "\n";
	close($RESULTS_FILE);
}

#Return meaningful output to user
print "Content-Type: text/html\n\n", $template->output;