#!/Perl/bin/perl

use strict;
use warnings;

my $correct_password = "known";
my $password_is_correct = 0;

print "Bitte gib das Passwort ein.\n";
my $password = <STDIN>;
chomp($password);

while( $password_is_correct != 1 ) {
    if( $password eq $correct_password ) {
        print "Eingabe ok. Haste toll gemacht!\n";
        $password_is_correct = 1; # beendet die while-schleife im nächsten Durchlauf
    }else{
        print "Falsch geraten, bitte gib das Passwort ein.\n";
        # passwort erneut eingeben
        $password = <STDIN>;
        chomp($password);
    }
}

print "ende";