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


##</code><code>##

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

##</code><code>##

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;
...