sub Do_SQL2 {
    my( $sql ) = @_;
    $sth = $dbh->prepare( $sql );
    $sth->execute();
}