#!/usr/local/bin/perl
use strict;
use warnings;
use DBI;
use DBD::mysql;
use Apache::Session::MySQL;
use Apache::Session::Generate::MD5;
use Apache::Session::Store::MySQL;
use Data::Dumper;

my $dsn = "DBI:mysql:database=$db:host=$host";
my $id = Apache::Session::Generate::MD5::generate();
my $store = new Apache::Session::Store::MySQL;
print Dumper( $id, $store );

#if you want Apache::Session to open new DB handles:
my %session_hash;
tie %session_hash, 'Apache::Session::MySQL', $id, {
    DataSource => 'dbi:mysql:$db',
    UserName   => $user,
    Password   => $password,
    LockDataSource => 'dbi:mysql:$db',
    LockUserName   => $user,
    LockPassword   => $password,
};

print Dumper( \%session_hash );