while (<DATA>) { # get a line of POD
  if (/^=item\s+(LDAP_\S+)\s+\((.*)\)/) {# look for a POD line of =item LDAP_<constant> (<value>)
    $const{$name} = sub () { $value }; # set the constant from what was in the POD !!!
  }
}