Select Code to Download

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

my $dbh = DBI->connect(
   $data_source, $username, $pass,
   {RaiseError => 1},
);

my $updy="Y";
$dbh->do("UPDATE INV SET SOLD=$updy  ... ");

$dbh->do("UPDATE INV SET SOLD='$updy'  ... ");

$dbh->do("UPDATE INV SET SOLD = ? WHERE CODE = ?", undef,$updy,$CODE);