#!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');

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$ip= $query->remote_addr();
$ref= $query->referer();

open(INFO, ">>$ENV{'DOCUMENT_ROOT'}/data/moodexample2.txt");
 print INFO "$mon/$mday/$year\, ";
 print INFO "$hour:$min:$sec\, ";
 print INFO "$ip, $ref, ";
 print INFO "$v0, $v1, $v2, $v3, $v4 ";
 print INFO "endline \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;