use Data::Dumper;
print Dumper $DBH

##</code><code>##

my %session;
tie %session, 'Apache::Session::MySQL', undef,