tests of async operations

[eric G. <eri...@wa...>]

Hi , I want to make  request with async mode : my code is now like this:

#!/usr/bin/perl  -w
use Net::LDAP;
my $ldap = Net::LDAP->new('10.75.6.34',
                           version =>3,
           async =>1,);
my $code = $ldap->bind(dn =>
'uid=michel.xxxxx-cp,ou=personnes,ou=dgcp,ou=mefi,o=gouv,c=fr' ,
password =>'0' ,
         );
 $selector =IO::Select->new($ldap->socket);
while ($selector ->can_read($timeout)) {
  $ldap->_recvresp();
last if ($code->done());
}
print "stop" ;

the goal of the  job is to fetch the supply info send by Directory Server at
the time of binding . A code whi tell :  your password will expire in n days
etc..

first , is  my loop seem correct for async operation   ?
 where can find some doc or exemple about async op with net::ldap
thank a lot
eric german
france