use webapp; use Plack::Builder; use Authen::Simple::ActiveDirectory; use Log::Log4perl; my $ad = Authen::Simple::ActiveDirectory->new( host => 'ldap://addev.dev.abc.com', principal => 'addev.dev.abc.com', timeout => '60', log => Log::Log4perl->get_logger('Authen::Simple::ActiveDirectory') ); builder { enable "Auth::Basic", authenticator => $ad; my ( $username, $password ) = @_; webapp->to_app; };