my $ldap = Net::LDAP->new($host) or die "$@";
my $bind = $ldap->bind($bind_dn, password => $bind_pw);
my $result = $ldap->modify($user_dn, replace => { userAccountControl => '512' });
$ldap->unbind();