#!/var/local/couch/bin/perl &header; @contents = read_file("scores.txt"); &print_file(@contents); &footer; exit(0); sub read_file{ my($name) = @_; my (@FileInfo); open (FILE, $name); @FileInfo = ; close(FILE); return @FileInfo; } sub print_file { my(@contents) = @_; my($element); print "Here is everyone's information!:

\n"; $numLines=0; foreach $element(@contents) {print "$element
"; $numLines++;} print "\n"; $numUsers=$numLines / 3; $totalCorrect=0; $Sum=0; for ($j=2;$j<$numLines+2;) { $Sum=$contents[$j]+$Sum; $j=$j+3; } $Avg=$Sum / $numUsers; print "

The average score on this test is: $Avg percent.

\n"; } sub header {# print the header for the HTML page print "Content-type: text/html", "\n\n"; print "\n"; print "\n"; } sub footer {# print the footer for the html page print ""; }