Code or no code, the fact remains that the script behaves differently when run in the debugger.

#!/usr/bin/perl  -w

use Net::LDAP;
use strict;

my $ldap = Net::LDAP->new(
        "ldap://server/",
        debug=>15,
        version=>3,
        async => 1 ,
        onerror => 'warn'  );
die "new(): $@" if !$ldap;


my $result = $ldap->bind();
die "bind(): $@\n" if  $result->code;

$result = $ldap->search(
        base => "dc=zzzz,dc=com",
        filter => "(&(objectclass=posixAccount) )",
        attrs=>['uid'] );
die "search(): $@\n" if $result->code;

print "Results:\n";

foreach my $entry ( $result->entries) {
        $entry->dump;
}

$ldap->unbind();
$ldap->disconnect();
[download]