#!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;
                }
    }