繰り返し； while 文

 1:
 2:
 3:
 4:
 5:
 6:
 7:
 8:
 9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

#!/usr/bin/perl
#上の行では、 Perl のパスを記述してください。
$login_id = "sugai";
$login_pass = "s59od3fN";
print "Please, enter your name; ";
chomp($name = <STDIN>);
if ($name eq $login_id) {
  print "$name さん、ようそこ！\n";
  print "パスワードを書いてください； ";
  while (1) {
    chomp($pass = <STDIN>);
    if ($pass eq $login_pass) {
      print "パスワードが確認されました。\n";
      last;      # while から抜け出し
    } else {
      print "もう一度パスワードを御願いします； ";
    }            # 「if 文」終了
  }              # 「while 文」終了
} else {
  print "$name さんは、ユーザに一致しませんでした。\n";
}