PerlSwitches -I /home/r2/Linux-Magazin/1

<Perl>
package Test;

use Apache::Const -compile => qw(OK);
use strict;

sub handler {
  my $r=shift;

  $r->content_type( 'text/plain' );
  $r->print( "SESSION=".$r->subprocess_env( 'SESSION' )."\n" );

  return Apache::OK;
}

</Perl>

DirectoryIndex index.shtml index.html

PerlModule Apache::ClickPath
PerlModule Apache::ReqChain
PerlTransHandler Apache::ReqChain Apache::ClickPath
#PerlTransHandler Apache::ClickPath
#PerlFixupHandler Apache::ReqChain
PerlOutputFilterHandler Apache::ClickPath::OutputFilter

<Location /Test>
SetHandler modperl
PerlResponseHandler Test
</Location>