#!/usr/bin/perl

use strict;
use warnings;

use DBI;
use Apache::Session::MySQL;
use Data::Dumper;

my $db_user = 'root';
my $db_pass = '';

my $dbh = DBI->connect('DBI:mysql:sessions', 'root', '');
my $sth = $dbh->prepare('select id from sessions');
$sth->execute();

while (my $arrayref = $sth->fetchrow_arrayref) {
  my $id = $arrayref->[0];
  my %hash;
  tie %hash, 'Apache::Session::MySQL', $id, {
					     DataSource => 'dbi:mysql:sessions',
					     UserName   => $db_user,
					     Password   => $db_pass,
					     LockDataSource => 'dbi:mysql:sessions',
					     LockUserName   => $db_user,
					     LockPassword   => $db_pass
					    };
  print Dumper($hash{$id});
  untie %hash;
}

$sth->finish();