sub handler {
    use CGI::Session;

    # check CGI session
    my $session = new CGI::Session();
    my $authuser = $session->param( 'AUTHUSER' );

    # pass authuser to Apache log handler
    $r->set_remote_user_or_something( $authuser );
  }