my $dbh = DBI->connect('DBI:mysql:db:localhost',
  ${dbuser},${dbpass}) or confess "$DBI::errstr<br>";

my $dbu = new My::DBU $dbh or confess "$DBI::errstr <br>";

$dbu->begin_work();

print "BEFORE ERR<br>";
my $sth = $dbu->execute( \$dbh, \$query, \$errmsg );
print "NEVER GETS HERE<br>";