my $dbh=DBI->connect("DBI:mysql:database=sessions;host=localhost","root", "");
my $opts = {Handle => $dbh};
tie my %session, 'Apache::Session::MySQL', $id, $opts;

##</code><code>##

my $ops = {
 DataSource => 'dbi:mysql:sessions',
 UserName   => 'root',
 Password   => ''
};
tie my %session, 'Apache::Session::DBI', $id, $opts;