my $password = "123";
print "Gib das geheime Passwort ein:\n";
my $check_pw = <STDIN>;
chomp($check_pw);
if($check_pw eq $password)
{
        print "Passwort korrekt.\n";
}
else
{
        print "Passwort falsch.\n";
}