$dbh->{'RaiseError'} = 1;

##</code><code>##

$sth->prepare("YOUR SQL HERE")or die "blah $DBI::errstr";

##</code><code>##

$sth->prepare("YOUR SQL HERE");