$modul = 1;
$get = "-";
eval "use Crypt::Digest::Keccak512 0.067; 1;" or $modul = $@;
if ($modul eq "1") {
	$get = "";
	my $ret = 0;
	$code = <<'CODEABSCHNITT';
my $ergebnis = Crypt::Digest::Keccak512::keccak512_hex('Dies ist ein schoener Sommertag!');
return (
	$ergebnis
		eq
	'01073c008692a2c9378cf0fea47fd17d6ffc52c7e89c11486f76e95ed8e136b9a19cd862367f31128a616aaf440f6ef9e1bd77189818c043380f7e2d9f987284'
	? "\x01"
	: $ergebnis
);
CODEABSCHNITT
    $ret = eval $code;
    if ($@) { $get = $@; $modul = 0; }
    elsif ($ret ne "\x01") { $get = "liefert nicht das gewünschte Ergebnis sondern<br>$ret"; $modul = 0; }
    if ($get eq "") { $get = "bestanden"; }
}