#!c:/perl/bin/perl -w

$passwort = "gecko";              &n
bsp; 

print "\nGeben Sie bitte Ihren Namen ein:\n";
$name = <STDIN>;
chomp $name;

if ($name eq "Otto") 
{
print "Hallo, Otto!\n";
}         
    

else         
    {
    print "Hallo, $name!\n"; 
        print "Geben Sie bitte das Passwort ein:\n";
            $passwort1 = <STDIN>;
            chomp $passwort1;
                while ($passwort1 ne $passwort)                
             { &nbsp
;  
            print "Falsches Passwort. Bitte versuchen Sie es nochmals:\n";
                    $passwort1 = <STDIN>;
                   chomp $passwort1;
                }
    }

my %user_hash = ();

# Eingabe
$user_hash{'user1'} = "passwort1";
$user_hash{'user2'} = "passwort2";


# Ausgabe
print $user_hash{'user1'}."\n";
print $user_hash{'user2'}."\n";

dbmopen(%USER, "$pfad", 0644)
   or die "Datzenbank kann nicht angelegt werden: $!";

$USER{"$nkey"} = "$nwert";  #neuer key und wert anlegen

delete $USER{"$delkey"};  #key und wert aus der datenbank entfernen

dbmclose(%USER);