sub new {
        my $self = {};
        $self->{_ldap} =  Net::LDAP->new($LDAP_SERVER);
        bless $self;
        return $self;
}