$session = new CGI::Session('driver:File', undef, {Directory=>'./.tmp/sessions'});
            $session->expire('+30m');
            
            my $endzeit  = new Benchmark;
            my $zeitdiff = Benchmark::timediff($endzeit, $main::startzeit);
            my $duration = Benchmark::timestr($zeitdiff, "nop");
            
            $duration =~ /(\d+\.\d+) wallclock*/;
            $duration = $1;
            
            my $sname = $session->name;
            my $sid        = $session->id;
            
            #session sachen speichern            
            $session->param('user-name', $uname);
            $session->param('user-id', $ruckgabe[0]);
            $session->param('user-gruppe', $ruckgabe[1]);
            $session->param('user-admin', $ruckgabe[2]);
            
            $session->flush();
            
            print "Content-Type:text/xml\n\n";
        print <<"XML";
            <data duration="$duration">
               
 <session name="$sname" id="$sid"  />
            </data>
XML