#!/usr/local/bin/perl use strict; use CGI; #check if this is a response or an initial load of the page if ($ENV{CONTENT_LENGTH} > 0) { my $responses; #using POST, because there's a lot of data read(STDIN, $responses, $ENV{CONTENT_LENGTH}); my $query = CGI->new($responses); my $stamp = time; open F, ">>/var/www/html/linguistics/cgi-bin/mhresults.txt"; #keep track of results using a timestamp print F scalar localtime, "\n"; foreach my $key ($query->param()) { my $str = $query->param($key); print F "$key = $str\n"; } close F; #print a thank you message print "Content-type: text/html\n\n"; print "
For each of the following made up words, indicate how well-formed or typical you think it sounds as a word of English on a scale of 1 to 7 (1 = "very well-formed"; 7 = "very ill-formed". You need to give a response to each question. Don't forget to click the "submit" button when you are done.