my $sth2 = $dbh->prepare( $SQL2 ) or die $dbh->errstr;
my $rv = $sth2->execute()         or die $sth->errstr;