Помогите разобаться с Perl

Вот программа:

Code:

#!usr/bin/perl
while ($login ne "root" and $pass ne "root") {
        print "Login\n";
          $login = <STDIN>;
          chomp $login;
        print "Password\n";
          $pass = <STDIN>;
          chomp $pass;
        print "Access denied\n";
}

if ($login eq "root" and $pass eq "root") {
        print "Welcome, $login\n";
}

Как только $login или $pass принимает значение root, программа завершает работу.
Мне нужно чтобы при правильном вводе и Login и Password выдавалось приветствиею,
а при не правильном вводе одного из полей цикл повторялся.
Как это правильно реализовать?

 

while ($login ne "root" or $pass ne "root")

 

PHP:

#!usr/bin/perl
$flag = 0;
while (!$flag) {
        print "Login\n";
          $login = <STDIN>;
          chomp $login;
        print "Password\n";
          $pass = <STDIN>;
          chomp $pass;
        if ($login eq "root" and $pass eq "root") {
           $flag = 1;
        } else {print "Access denied\n";}
}
print "Welcome, $login\n";