#!/usr/local/bib/perl #venir-quiz.cgi push (@INC, "Mitrevski:Macperl Ÿ:lib"); require 'cgi-lib.pl'; &ReadParse; $header = <Russian Quiz Results

These are the results of the quiz

header print "
\n"; print &PrintVariablesShort (%in); print "
\n"; print "1. Where was Turgenev born?\n"; if ($Q1 eq "provinces") { $grade++ } else { print "1. He was born in the provincial town Orel.
\n"; } if ($Q2 eq "false") { $grade++ } else { print "2. His family was of a gentry background.
\n"; } print "3. What was Turgenev's mother like?
\n"; print "Your answer: ", $Q3, "
\n"; print "One possible answer: Not very nice?
\n"; print "4. Where did Turgenev study?
\n"; print "Your answer: ", $Q4, "
\n"; print "One possible answer: In St. Petersburg and in Berlin?
\n"; print "5. What was Turgenev's field of study?
\n"; print "Your answer: ", $Q5, "
\n"; print "One possible answer: philosophy?
\n"; if ($Q6 eq "peasnats") { $grade++ } else { print "6. His earliest works dealt with the life of the peasants.
\n"; } print "7. Name a play by Turgenev mentioned in the reading.
\n"; print "Your answer: ", $Q7, "
\n"; print "Correct answer: A Month in the country
\n"; if ($Q8 eq "France") { $grade++ } else { print "8. Turgenev died in France and was buried in Russia.
\n"; } print "9. What word in the text means \"to enroll\" at a university?
\n"; print "Your answer: ", $Q9, "
\n"; print "correct answer: ­¦²Œ¹­ŠŒÿ
\n"; print "10. 10. What is a good translation of the phrase \"He gained fame as an author\"?
\n"; print "Your answer: ", $Q10, "
\n"; print "One possible answer: He was very famous
\n"; print "Your grade for this reading is: ", $grade, ".
\n"; print "";