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

[Deniska]

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

#!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 выдавалось приветствиею,
а при не правильном вводе одного из полей цикл повторялся.
Как это правильно реализовать?

[ferryman]

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

[DetMyl]

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