#!/usr/bin/perl –w

%user = ("Benutzername" =>"Peter",
		"Passwort" =>"Peter1");

print "\nBitte geben Sie Ihren Benutzernamen ein: \n";
chomp ($name = <>);

print "\nHallo $name, bitte geben Sie Ihr Passwort ein: \n";
chomp ($passwort = <>);

while ($passwort ne $user {Passwort}) 
{
	print "\nDas Passwort ist nicht richtig. Bitte versuchen Sie es erneut:\n";
	chomp ($passwort = <>);
}

print "\nDas Passwort ist richtig. Herzlich Willkommen, $name!\n";