Select Code to Download

    my $message = $self->ldap->bind( $user, password => $password );
    if ( _v_is_error( $message, $user ) ) {
...
        return;
    }

    my $user = _connect_to_ad($dsl)->authenticate( $name, $pass );
    return $user if $user->{error};

my $AD = _connect_to_ad($dsl) or die "No AD connection!";
my $user = $AD->authenticate( $name, $pass );
die $AD->error_message if $AD->error_message;
...