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