Select Code to Download

my $bind_msg = $ldap->bind( $bind_dn, %bind_params );
if ( my $bind_code = $bind_msg->code ) {
   die "Cannot bind:", $bind_msg->error,
       " (Code: $bind_code)";
}

my $ldap = Net::LDAP->new( 'localhost', debug => 8 );