#!C:/perl/bin/perl.exe
use CGI;
$query = new CGI;

$v0= $query->param('v0');
$v1= $query->param('v1');
$v2= $query->param('v2');
$v3= $query->param('v3');
$v4= $query->param('v4');

open(INFO, ">>$ENV{'DOCUMENT_ROOT'}/data/moodexample.txt");
 print INFO "$v0, $v1, $v2, $v3, $v4 \n";
 close (INFO);print $query->header;
 
print $query->start_html(-title=>'Thank You');
print "<FONT FACE = 'arial' SIZE = '2'>Thank you for your participation in this research! </FONT>";
print $query->end_html;