#! /pfad/zu/perl.exe

use strict;
use warnings;

open (EINLESEN, "<kjx3212.ght") or die $!;
my $passwort = <EINLESEN>;
chomp ($passwort);
close (EINLESEN);

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