if (crypt($guess, $pass) eq $pass) {
    # guess is correct
}
*****
$pwd = (getpwuid $<)[1]; $salt=substr $pwd, 0, 2; system "stty -echo" ; print "Password: " ; chop($word=<STDIN>);
print "\n";
system "stty echo";

if (crypt($word, $salt) ne $pwd) {
    die "Sorry...\n";
} else {
    print "ok\n";
}