6 use strict;

     6 use strict;

     7 use warnings;

     7 use warnings;

     8 use Net::LDAP;

     8 use Net::LDAP;

     9 use Net::LDAP::Constant qw(LDAP_ALREADY_EXISTS LDAP_NO_SUCH_OBJECT LDAP_TYPE_OR_VALUE_EXISTS);

     9 use Net::LDAP::Constant qw(LDAP_ALREADY_EXISTS LDAP_NO_SUCH_OBJECT LDAP_TYPE_OR_VALUE_EXISTS);

    10 use Net::LDAP::Entry;

    10 use Net::LDAP::Entry;

    12 use Text::Wrap;

    12 use Text::Wrap;

    13 use password;

    13 use password;

    14 

    14 

    15 

    15 

    16 my $Cf;

    16 my $Cf;