#!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'); $v01= $query->param('v09'); $v02= $query->param('v10'); $v11= $query->param('v11'); $v12= $query->param('v12'); $v13= $query->param('v13'); $v14= $query->param('v14'); $v15= $query->param('v15'); $v16= $query->param('v16'); $v17= $query->param('v17'); $v18= $query->param('v18'); $v19= $query->param('v19'); $v20= $query->param('v20'); # 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_OLD'}/www/relationshipsresearch.com/P593/HW2.txt"); print INFO "$date1,$date2,"; print INFO "$v01,$v02,$v03,$v04,$v05,$v06,$v07,$v08,$v09,$v10,$v11,$v12,$v13,$v14,$v15,$v16,$v17,$v18,$v19,$v20,"; print INFO "endline\n"; close (INFO); print $query->header; print $query->start_html(-title=>'Thank You'); print ""; print ""; print ""; print ""; print ""; print $query->end_html;

"; print ""; print "Thank you for participating in the study. Have a nice day.