Select Code to Download

use Net::LDAP::Util qw(ldap_error_text
                       ldap_error_name) ;
...
  die join "\n",ldap_error_name($code),
                ldap_error_text($code) ;
}

while (my ($username,$userdata) = each %petra) {
  my $entry = Net::LDAP::Entry->new();
...
    # die_ldap_error($msg->code)
  }
}