#
# Check the entries from $SHADOW (stored in %password) to see if they
# also exist in $PASS (stored in %users).
#
for $user (sort keys %password) {
        if (!defined($users{$user})) {
                print "$user appears in $SHADOW but not $PASS!\n";
        }
}