#!/usr/bin/perl

use strict;
use Apache2::RequestRec ();
use Apache2::Const qw(:common);

sub handler {
    my $r = shift;

    $r->print("Content-Type: text/plain\n\n");
    $r->print('TEST!');
    return OK;
}   

1;

##</code><code>##

<VirtualHost xxx.xxx.xxx.xxx:80>
    ServerName myhostname.org
    ServerAlias www.myhostname.org
    ServerAdmin admin@myhostname.org
    DocumentRoot /home/www/vhosts/host/html
    ErrorLog /home/www/vhosts/host/logs/error_log
    CustomLog /home/www/vhosts/host/logs/access_log combined
    ScriptAlias /cgi-bin/ /home/www/vhosts/host/cgi-bin/
    UserDir disabled

    PerlOptions +Parent 

    PerlConfigRequire /home/www/vhosts/host/lib/test-startup.pl
    PerlModule BCS::Test

    <Directory /home/www/vhosts/host/html>
        AllowOverride AuthConfig FileInfo 
        Options Indexes FollowSymLinks Includes MultiViews
        Order allow,deny
        Allow from all
    </Directory>
    <Directory /home/www/vhosts/host/cgi-bin>
        AllowOverride AuthConfig
        Options ExecCGI 
        Order allow,deny
        Allow from all
    </Directory>

    <Location /testpl>
        SetHandler perl-script
        PerlResponseHandler BCS::Test
        PerlOptions +ParseHeaders
        Options +ExecCGI
    </Location>
        
</VirtualHost>