Select Code to Download

#$csvIn is a Text::xSV object.
while ($csvIn->get_row()) {
...
  # be problems later printing the data rows.
  defined($_) or $_ = "" for values %fields;
}

  for (keys %fields) {
    unless (defined($fields{$_})) {
      $fields{$_} = "";
    }
  }