#   next if $username ne $user;
    if ($username ne $user) {
        print "<P>user '$user' didn't match '$username'</P>";
        next;
    }
#   $good = 1 if $username eq $user and $password eq $pass;
    print "<P>matched username '$user'</P>";
    if ($password eq $pass) {
        print "<P>.. and matched password, marking as good</P>";
        $good = 1;
    } else {
        print "<P>.. but password '$pass' didn't match '$password'</P>";
    }