Скипт на perl, хеш пароля

[kharkov_max]

День добрый.

Нарыл в инете скрипт

Код: Выделить всё

#!/usr/bin/perl
use strict;
use warnings;
use MIME::Base64;
use Digest::SHA1  qw(sha1);

print "input your new serveradmin password: ";

my $newpass = <>;
chomp $newpass;

my $encoded = encode_base64(sha1($newpass));

print "password hash: $encoded\n";

Нужен для взятия хеша пароля и вставки его в БД.
Только у меня скрипт вываливается в ошибку, автор вроде использовал его на freebsd.

Код: Выделить всё

Can't locate Digest/SHA1.pm in @INC (@INC contains: /usr/local/lib/perl5/5.12.4/BSDPAN /usr/local/lib/perl5/site_perl/5.12.4/mach /usr/local/lib/perl5/site_perl/5.12.4 /usr/local/lib/perl5/5.12.4/mach /usr/local/lib/perl5/5.12.4 .) at ./ts3_password.pl line 5.
BEGIN failed--compilation aborted at ./ts3_password.pl line 5.

Предполагаю что что то недоставлено в perl.
Помогите или исправить ошибку или может аналог на shell или bash.

Спасибо.

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[kharkov_max]

Вопрос решен.

Сделал

Код: Выделить всё

/root>>pkg_info | grep p5-Digest-SHA1
p5-Digest-SHA1-2.13 Perl interface to the SHA-1 Algorithm
[12:58]***:/root>>cd /usr/ports/security/p5-Digest-SHA1
[12:58]***:/usr/ports/security/p5-Digest-SHA1>>make reinstall clean