package Foo::BAR::Access;

use Apache::Constants qw( :methods :response );
use strict;

sub handler {
        my $r   = shift;
        my $ip  = $r->connection->remote_ip;

        if( $ip =~ /^10.10.1.*$/ ) {
                $r->custom_response( FORBIDDEN, "/survey.html" );
                return FORBIDDEN;
        }
        return OK;
}

##</code><code>##

     <Location /cgi-bin/foo.cgi>
        PerlAccessHandler Foo::BAR::Access
        PerlHandler Apache::PerlRun
        Options ExecCGI
        PerlSendHeader On
    </Location>