вот ответ, основанный на подсказке ephemient .. Мне не нужна первая строка, которую я удалил, и в случае, если ne предполагается, что eq, вероятно, означает, что равен:) это выглядит, это работает ..
system "stty -echo";
print "Password: ";
chomp($word = <STDIN>);
print "Password again: ";
chomp($pwd = <STDIN>);
print "\n";
system "stty echo";
if (crypt($word, $pwd) eq $pwd) {
die "Sorry...\n";
} else {
print "ok\n";
}