#!/usr/bin/perl

use lib "/www/docs/homes/theissen/scr/perlmods/perllib/";
use CGI;
use CGI::Session;

$q = new CGI;
$session = new CGI::Session(undef,undef,{Directory=>"/www/docs/homes/theissen/scr/session/tmp"});

#$sid = $session->id();

print   $q->header(),
        $q->start_html('Hi'),
        $q->h1('hi'),
        qq[session id: $sid\n],
        $q->end_html;