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