perl+crypt+mysql

perldoc -f crypt:

               Here's an example that makes sure that whoever runs this program knows their own password:

                   $pwd = (getpwuid($<))[1];

                   system "stty -echo";
                   print "Password: ";
                   chomp($word = <STDIN>);
                   print "\n";
                   system "stty echo";

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


то есть если вместо сальт использовать пароль, а вместо пароля хеш, то должен получиться тот же хеш

я не очень силен в етом, потому и не совсем понял.

я должен зашифровать и сравнить ????????? правильно я понимаю ?????? если да, то что такое $pwd = (getpwuid($<))[1];

обясните мне ище раз, попонятней, пожалуста

Про $pwd = (getpwuid($<))[1]; смотреть здесь:
http://mirrors.usaaa.ru:8001/books/perl/prog/ch02_09.htm#PERL2-CH-2-SECT-9.3
http://mirrors.usaaa.ru:8001/books/perl/prog/ch03_063.htm#PERL2-CMD-GETPWUID

А вообще, на сколько я помню, после выполнения crypt первые 2 символа в полученной строке как раз и есть salt.