PerlOptions +Parent
PerlSwitches -I/media/lib
PerlModule MyLib::SiteAuth
<Directory "/path/to/website/docs">
        PerlAccessHandler MyLib::SiteAuth::access
        Options ExecCGI FollowSymLinks
        AllowOverride None
        order deny,allow
        deny from all 
</Directory>

##</code><code>##

package MyLib::SiteAuth;

use Apache2::Access;
use Apache2::Log;
use Apache2::RequestIO;
use Apache2::RequestUtil;
use Apache2::Response;
use Apache2::SubRequest;
use Apache2::URI;

sub access {

        my $request = shift;

        $request->log_error(" - handler accessed");

        return Apache2::Const::OK;
}