Select Code to Download

##
@entries = $mesg->entries;
...
@attrs = $entry->attributes();
$entry->get_value($attr));
##

 #!/usr/bin/perl
use Net::LDAP;
$ldap = Net::LDAP->new("localhost");
...
                printf("\t%s: %s\n", $attr, $entry->get_value($attr));
        }
}