open (SCHREIBEN, ">/temp/test1.txt") or die "!!!Konnte nicht geoeffnet werden!!!\n";
$passwort = "Lupo";
$y = 1;
while ($y<=3)
{
print "\n";
print "Bitte Kennwort (Versuch Nr.: $y): \n";
$eingabe =<>;
chomp ($eingabe);
 if ($eingabe ne $passwort)
 {
 print "leider falsch!!!\n";
 }
 else
 {
 die "Ok Zutritt erteilt!!!\n";
 }
$y++
}