use strict;
my $eingabe = '';
my $passwort = 'Lupo';
my $i = 0;
while (1) {#Endlosschleife
    print "Passwort: ";
    chomp ($eingabe = <STDIN>);#Eingabe
    die "Maximale Versuche verbraucht.:-(\n" if ++$i > 3;#Stirb wenn Zähler größer 3 und inkrementieren vorher
    last if $eingabe eq $passwort;#Beende Schleife  Wenn Passwort stimmt.
    warn "Leider falsches Passwort. Nochmal....\n";
}
print "Jetzt kommt der Rest\n";