
<Perl>
    use lib qw# /home/httpd/htdocs/libs #;
</Perl>
                                                                                                                                              
PerlModule Apache::AuthCookie
PerlModule TestCookie::AuthCookieHandler
PerlSetVar TestCookiePath /
PerlSetVar TestCookieLoginScript /login.cgi
PerlSetVar AuthCookieDebug 3
                                                                                                                                              
# These documents require user to be logged in.
<Location /protected>
 AuthType TestCookie::AuthCookieHandler
 AuthName TestCookie
 PerlAuthenHandler TestCookie::AuthCookieHandler->authenticate
 PerlAuthzHandler TestCookie::AuthCookieHandler->authorize
 Require user programmer
</Location>
                                                                                                                                              
                                                                                                                                              
#this is the action of the login.pl script above.
<Files LOGIN>
 AuthType TestCookie::AuthCookieHandler
 AuthName TestCookie
 SetHandler perl-script
 PerlHandler TestCookie::AuthCookieHandler->login
</Files>
<Location /perl-status>
 SetHandler perl-script
 PerlHandler Apache::Status
</Location>