Perl и ldap пароль

Скриптом генерим пользователю ldap пароль

use Digest::SHA1 qw(sha1);
use MIME::Base64 qw(encode_base64);

my $data = "my_new_password";
my $digest = "{SHA}" . encode_base64( sha1($data),'' );
# print "Криптуем \n $data Crypt sha256 $digest \n";
# return $digest;

В ldap вставляем в таком виде(строчка из ldif файла):

userPassword: $digest

Когда будем делать ldapsearch или slapcat, то ldap дополнительно зашифрует строку с паролем в base_64 encoded. Строка будет выглядеть как-то так(в двумя двоеточиями после слова userPassword):
userPassword:: e1NIQX1mRFlIdU9ZYnp4bEU2ZWhRT21ZUElmUzI4L0U9