Yes, I tried standard debugging techniques. The LDAP bind() and search() are where it fails.

An example of how random it is(with Net::LDAP debugging off):

emeitner@brule:~/work/perl-ldap$ while : ; do ./simple.pl ; sleep 1; d
+one
bind(): I/O Error Resource temporarily unavailable
bind(): I/O Error Resource temporarily unavailable
bind(): I/O Error Resource temporarily unavailable
search(): I/O Error Resource temporarily unavailable
bind(): I/O Error Resource temporarily unavailable
bind(): I/O Error Resource temporarily unavailable
search(): I/O Error Resource temporarily unavailable
bind(): I/O Error Resource temporarily unavailable
bind(): I/O Error Resource temporarily unavailable
search(): I/O Error Resource temporarily unavailable
bind(): I/O Error Resource temporarily unavailable
search(): I/O Error Resource temporarily unavailable
[download]

I DID notice during my investigation that if I use other modules such as Data::Dumper the script will actually work once out of every 20 runs or so.