Select Code to Download

$mesg = $ldap->search(
                       base   => "o=acme.com",
...
                       attrs  => [qw(sn givenName department)]
                      );