use constant SESSION_TIME => '60000'; 

use strict;
use CGI; 
use CGI::Carp qw(fatalsToBrowser set_message);
use CGI::Session;
use DBI; 
use Encode qw(encode);

my $db;
my $query;
my @row;
my $ergebnis;
my $spaltenname;
my $inhalt;
my $cgi;
my $sid;

my $cgiquery = new CGI;

print $cgiquery->header(-charset=>'ISO-8859-1', -expires=>'+1s', -type=>'text/html',);

require "/srv/v_address/cgi-bin/config.inc.pm";

my $db = &connectDBASE();
my $doc_root = &doc_root_path();


$CGI::Session::MySQL::TABLE_NAME = 'sessions';
my $sid = $cgiquery->cookie('cgisess') || $cgiquery->param('cgisess') || undef;
my $session = new CGI::Session("driver:MySQL", $cgiquery, {Handle=>$db});
my $sid = $session->id();
print $sid;