{
  my $pwd = esmith::util::LdapPassword ();
  $OUT.="sogo:$pwd";
}
