#!/usr/local/bin/perl

use strict;
use CGI;
use HTML::Template::Compiled;

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{
  my $template = HTML::Template::Compiled->new(filename => 'auswertung.tmpl');
  $template->param(AUSWERTUNG => $richtig);
  $template->param(ANZAHL => scalar(@antwort));
  print $cgi->header(),$template->output();
}