#!/usr/bin/perl

use strict;
use DBI;
use Apache::Session::MySQL;
  
my $dbhg = DBI->connect("dbi:mysql:mydatabase","username","secret")
	or die "Could not open MySQL DataBase - SQL Error: $DBI::errstr\n";
	
my %session;

tie %session, 'Apache::Session::MySQL', undef, {Handle=>$dbhg, LockHandle=>$dbhg};

my $sessid = $session{_session_id};

print "New session:$sessid\n";

$session{'atime'} = 2000;

print "Time set: $session{'atime'}\n";

untie %session;
undef %session;

tie %session, 'Apache::Session::MySQL', $sessid, {Handle=>$dbhg, LockHandle=>$dbhg};

print "Connected session:$session{_session_id}\n";

my $retievedTime = $session{'atime'};
	 
print "Retrieved time: $retievedTime\n";

untie %session;