#!/usr/local/bin/perl use strict; use CGI; my $cgi = CGI->new(); my %uservars = $cgi->Vars(); my @anwort = qw(0 B D B A C D D B B D B C A D C C A C); my $richtig; for (1..$#anwort) { $richtig++ if $uservars{"IQ$_"} eq $antwort[$_] } if ($richtig >= 18) { print $cgi->redirect("richtig.html") } else { print $cgi->header(); print < Testauswertung

Ergebnis:
$richtig Antwort(en) von $#antwort Aufgaben sind richtig ....... EOF; }