my $session = new CGI::Session(undef, undef, {Directory=>'c:/temp/sessions'});

    my $count = $session->param('count');
    $session->param('count', $count + 1);
    my $cookie = $query->cookie( -name   => $session->name,
                                 -value  => $session->id
                                 );

    $r->content_type('text/html');
    $r->err_headers_out->add('Set-Cookie' => "$cookie; expires=Tue Jan 01 00:00:01 2036 GMT");

    $session->flush();