my $sth = $dbh->prepare(
     qq|UPDATE $table SET $field = ? WHERE id = ?|
   );
   $sth->execute( $value, $record );