Here is the code
@fields =
(
# Label Field Name Index
['User ID' , 'uid' , 0],
['Account Locked' , 'nsaccountlock' , 0],
);
##
# LDAP query to make for a shorter post
##
foreach $entry ($mesg->all_entries)
{
@dn = map {s/[a-z]+=//gi; $_ = ucfirst}
reverse split...