my $sth1 = $dbh1->prepare( ... ) or die $dbh1->errstr;