my $ldap=Company::LDAP->new();