#!C:\perl\bin\perl.exe
##!/usr/bin/perl
use strict;
use CGI qw(param);
use CGI::Carp qw(fatalsToBrowser);
$CGI::DISABLE_UPLOADS = 1;
$CGI::POST_MAX = 6 * 6;
print "Content-type: text/html\n\n";
my $text = 'zurück';
my $max = 6;
if (param()) {
my $pass = param ('pass');
my $zahl = int ( rand($max) );
my $eingabe = $pass;
chomp $eingabe;
if ($eingabe eq $zahl) {
print "Eingabe ist Richtig!
$text".'';
} else {
print "Eingabe ist Leer oder Falsch!
$text".'';
}
} else {
print <
Test
END
}