$dbh->do(
   'UPDATE INV SET SALESMAN = ? WHERE CODE = ?',
   undef, $SALESMAN, $CODE,
);