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

<Perl>
package Test;

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

sub handler {
  my $r=shift;		# das Anfrage-Objekt

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

  return Apache::OK;
}

</Perl>

PerlModule Apache::ClickPath
PerlTransHandler Apache::ClickPath

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