use Spreadsheet::WriteExcel;

# Create a new Excel workbook
my $workbook = Spreadsheet::WriteExcel->new('LibreOfficeBug.xls');
my $worksheet = $workbook->add_worksheet();

for (my $row = 0; $row <= 100; $row++) {
  for (my $col = 0; $col <= 100; $col++) {
    my $str = "R${row}C${col}";
    $str = "FINAL_NEWLINE\r" if ($row == 10) && ($col == 10);
    $worksheet->write($row, $col, $str);
  }
}

exit 0;
