open (EINLESEN, "<kjx3212.ght");
$passwort = <EINLESEN>;
chomp ($passwort);
close (EINLESEN);
$z = 1;
while ($z<=3)
{
  print "\n";
  print "Bitte Kennwort (Versuch nr.: $z):";
  $eingabe = <>;
  chomp ($eingabe);
  if ($eingabe ne $passwort)
 {
   print "Leider falsch!!\n";
 }
 else
 {
   die "ok,Zutritt erteilt!\n";
 }
 $z++
}