Server version: Apache/1.3.27 (Unix)  (Red-Hat/Linux)
Server built:   Mar 15 2005 14:49:39

##</code><code>##

<Perl>
{
    package SessionLogAndHandle;
    use CGI::Session;
    use Apache::PerlRun;

    sub handler {
        my ( $r ) = @_;

        {
            my $s = CGI::Session->new();
            my $authuser = $s->param( 'AUTHUSER' );
            $r->user( $authuser ) if ( $authuser );
        } # I want $s to go out of scope

        return( Apache::PerlRun->handler( $r ) );
    }
}
</Perl>

<Directory "/var/www/myproject/bin">
        Options +ExecCGI
        SetHandler perl-script
        PerlHandler SessionLogAndHandle
        Allow from all
</Directory>