スレタイトルとはあまり関係ないが、自宅に住民票コードが届いたので、
さっそく下のような下手糞Perlプログラムでチェックしてみた。
当たり前だが、家族全員Goodだった。

しかしこの通知票、下からライトあてたら開封しないで外からコード
読めるじゃん…。いいのかこんなんで >武蔵野市役所

$code = shift;
die "Too short: $code\n" unless (length($code) == 11);
@v = split(//, $code);
$sum = $v[9]*2 + $v[8]*3 + $v[7]*4 + $v[6]*5 + $v[5]*6
          + $v[4]*7 + $v[3]*2 + $v[2]*3 + $v[1]*4 + $v[0]*5;
$chk =