my $xbinds = join ", ", @binds;
    print "update [$udate]\n";
    print "binds -->  {$xbinds }\n";