Select Code to Download

package My::DBU;
use strict;
...
    my $rows = $sth->execute or die $DBI::errstr;;
    return \$sth;
}

my $dbh = DBI->connect('DBI:mysql:db:localhost',
  ${dbuser},${dbpass}) or confess "$DBI::errstr<br>";
...
print "BEFORE ERR<br>";
my $sth = $dbu->execute( \$dbh, \$query, \$errmsg );
print "NEVER GETS HERE<br>";

You have an error in your SQL syntax; check the manual that correspond
+s to your MySQL server version for the right syntax to use near 'REF(
+0xaaa3700)' at line 1 at /usr/lib/perl5/site_perl/5.8.8/My/DBU.pm lin
+e 96.\n

http://www.perlmonks.org/?node_id=324671
http://www.perlmonks.org/?node_id=870145