#!C:/perl/bin/perl.exe
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$query = new CGI;

# Read in the responses to each item and save those responses locally

$v01= $query->param('v01');
$v02= $query->param('v02');
$v03= $query->param('v03');
$v04= $query->param('v04');
$v05= $query->param('v05');
$v06= $query->param('v06');
$v07= $query->param('v07');
$v08= $query->param('v08');

# get date and time
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year = 1900 + $year;
$mon= $mon+1;
$hour = $hour - 1;
$date1= "$mon/$mday/$year";
$date2= "$hour:$min:$sec";

open(INFO, ">>$ENV{'DOCUMENT_ROOT'}/P593/form1.txt");

	print INFO "$date1,$date2,";
	print INFO "$v01,$v02,$v03,$v04,$v05,$v06,$v07,$v08,";
	print INFO "endline\n";

close (INFO);


print $query->header;
print $query->start_html(-title=>'Thank	You');

print "Thank you.";

print $query->end_html;