$DBI->do("blah");
if ($DBI->err) {
   print "Error: ", $DBI->errstr, "\n"; 
}