#
# Read /etc/shadow if it exists.
if (! -f $SHADOW) {
        print "No shadow password file.  Testing without it.\n";
        $shadow = 0;
}
else {
        $shadow = 1;
        open(SH,$SHADOW) || die "Unable to open shadow file $SHADOW\n";
        while ($line = <SH>) {
                chomp($line);
                local($junk); # make the -w not error the variable junk
                ($name, $password, $junk) = split(":", $line);
                $password{$name} = $password;
        }
}