#!/usr/local/bin/perl
use strict;
use warnings;
use Apache::Session::MySQL;

#if you want Apache::Session to open new DB handles:
my ( $id, %hash );
my $user = 'user';
my $pass = 'pass';
my $host = 'host';
my $table = 'sessions';
my $db = 'apache_session';

tie %hash, 'Apache::Session::MySQL', $id, {
    DataSource => "dbi:mysql:$db:$host",
    UserName   => $user,
    Password   => $pass,
    TableName  => $table,
    LockDataSource => "dbi:mysql:$db:$host",
    LockUserName   => $user,
    LockPassword   => $pass,
};

##</code><code>##

use Apache::Session::Generate::MD5;