Print dumper for $DBH... it isn't right:

use Data::Dumper;
print Dumper $DBH
[download]

Additionally::

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

Is probably better written tie my %session, 'Apache::Session::MySQL', undef,