Select Code to Download

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

$sth->execute(@binds, $id);