Select Code to Download

#!/usr/bin/perl
use Net::LDAP;
...
); 

die Dumper $mesg->entries;

ldapsearch -H ldap://sub.ad.mydomain.org \
-b dc=sub,dc=ad,dc=mydomain,dc=org \
-D myusername@ad.subdomain.org \
-w mypassword \
'(sAMAccountName=myusername)'

[debug] Body Parameters are:
.-------------+-------------.
...
'-------------+-------------'
[debug] Path is "login"
[debug] Unable to locate user matching user info provided

name MyApp

...
    </ldap>
  </realms>
</authentication>

sub login : Global {
    my ( $self, $c ) = @_;
...
        $c->stash(error_msg => "Empty username or password.");
    }  
}