$sth1->execute; $sth2->execute; print "Statement 1 failed" if $DBI::err;