#!/usr/bin/perl

use strict;
use warnings;

my $username = 'xx';
my $passwort = 'xx';
my $tabelle  = '_test';

use CGI;
my $cgi = new CGI;

use CGI::Session;
my $session = new CGI::Session( "driver:mysql", undef, 
        {
        DataSource  => "dbi:mysql:$tabelle",
        User        => $username,
        Password    => $passwort
        }
    );

$session->param('dummy', time);

print $session->header();
print $cgi->start_html();
print $cgi->a( {href=>$cgi->self_url}, 'nochmal');
print $cgi->p("Zeit: ".$session->param('dummy'));
print $cgi->end_html();