my($username, $password, $env) = @_;
if ( $ad->authenticate( $username, $password ) ) {

##</code><code>##

Authen::Simple::Adapter::authenticate(undef, undef, undef) called at C:\Users\Documents\Perl\webapp\bin\app.psgi