my $config = {	DSN			=> 'DBI:mysql:session',
				MySQLunm	=> 'ipsofalco',
				MySQLpwd	=> 'ipsoquango',
};

my $dbh = &createDBconnection( $config->{DSN}, $config->{MySQLunm}, $config->{MySQLpwd} );
# Get a CGI object, it will be filled if a form was
#submitted and will have a cookie in teh header
#if one had been set.
my $q = new CGI;
#Initialize the session, if their is a cookie in the
#CGI object then the CGISESSID will be the value of an
#existing session, otherwise it creates a new session
my $session = new CGI::Session("driver:MySQL", $q, {Handle=>$dbh});

#$rdcookie is the value of the cookie that was already
# in the header read=past tense in this case.
my $rdcookie = $q->cookie("CGISESSID");
#$id is the session id (an MD5 hash) of the session.
my $id = $session->id();

# Set cookie with new expire time
my $cookie = $q->cookie(-name=>'CGISESSID', -value=>$session->id, -expires=>'+1d');