Strawberry Perl 5.16.3とNet::LDAP 0.65で、Bad File Descriptorが発生した。IO::Socket::IP（この時点で0.37版）をインストールしたところ、解消した。

詳細

エラー

該当部のコードは下記のsearch行。

my $ldap = Net::LDAP->new("$ldap_serv:$ldap_port") or die "$@";
my $mesg = $ldap->search(base => $ldap_base, filter => 'mail=tsukamoto@example.com');

以下のエラーになった。

Bad file descriptor at xxxxxx.pl line xx, <DATA> line xxx.

以下の2モジュールを更新したところ、エラーが解消された。

最初に、Net::LDAPが旧い可能性を考えて更新したところ、0.65版がインストールされ、エラーは変わりなかった。次に以下の2件を参考にIO::Socket::IPを更新したところ、0.37版がインストールされ、エラーが解消された。

Net::LDAP fails with latest ActiveState Perl, can be worked round byrenoving INET6.pm - nntp.perl.org
Bad File Descriptorが発生し、IO\Socket\INET6.pmをリネームした（機能しなくした）ら解消したとの投稿。
Re: Net::LDAP fails with latest ActiveState Perl, can be worked round by renoving INET6.pm - nntp.perl.org
それはIPv6サポートを無効化する作業だけど、代わりにNet::LDAPの最新版とIO::Socket::IPを入れてみたらどうか、という投稿。