{ 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 ) ); } } Options +ExecCGI SetHandler perl-script PerlHandler SessionLogAndHandle Allow from all