my $ST = $DB->prepare(<<EOSQL);
  UPDATE TABLE1 SET FOO=?, BAR=?, BAZ=?
  WHERE KEYCOL1=? AND KEYCOL2=?
EOSQL
$ST->execute($foo, $bar, $baz, $key1, $key2);