use Spreadsheet::WriteExcel;
  use HTML::Entities;
  use Encode qw( from_to );

  from_to (decode_entities ($value), "utf-8", "ucs2");
  $wks->write_unicode ($column, $row, $value);