our $net_ldap_supports_expired = 0; BEGIN { require Net::LDAP; Net::LDAP->import(qw(LDAP_SUCCESS LDAP_PARTIAL_RESULTS)); if( $Net::LDAP::Constant::VERSION >= 0.05 ) { Net::LDAP->import(qw(LDAP_PP_PASSWORD_EXPIRED)); $net_ldap_supports_expired = 1; } }