Select Code to Download

 open P, "/mnt/p/etc/passwd";
while (<P>) {
...

my $result = $entry->update($ldap);
$result->code && warn "$dn" ."failed to add entry: ", $result->error ;