my $sql = qq(update `CUST` set $field= ?, `Date`=$dat, `Time`=$time where $clause);
my $sth = $dbh->prepare($sql);
$sth->execute($to);