NameVirtualHost 10.0.0.50
<VirtualHost 10.0.0.50>
ServerName brian.lnstar.com
                                                                                                                                              
<Perl>
        use lib qw# /home/httpd/htdocs/libs #;
</Perl>
                                                                                                                                              
PerlModule Apache
PerlModule Apache::Registry
PerlModule Apache::AuthCookie
PerlModule TestCookie::AuthCookieHandler
PerlSetVar TestCookiePath /
PerlSetVar TestCookieLoginScript /login.pl
PerlSetVar TestCookieExpires +2h
PerlSetVar AuthCookieDebug 3                                                                                                                                              

<Files ~ "^\.pl">
#<Location />
   SetHandler perl-script
   PerlHandler Apache::Registry
   Options +ExecCGI
   allow from all
   PerlSendHeader On
#</Location>
</Files>
                                                                                                                                              
# 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.
<Location /LOGIN>
 AuthType TestCookie::AuthCookieHandler
 AuthName TestCookie
 SetHandler perl-script
 PerlHandler TestCookie::AuthCookieHandler->login
</Location>
                                                                                                                                              
<Location /logout>
 AuthType TestCookie::AuthCookieHandler
 AuthName TestCookie
 SetHandler perl-script
 PerlHandler TestCookie::AuthCookieHandler->logout
</Location>
                                                                                                                                              
<Location /perl-status>
 SetHandler perl-script
 PerlHandler Apache::Status
</Location>
                                                                                                                                              
</VirtualHost>