#!/usr/bin/perl
use strict;
use OpenOffice::OODoc;

my $doc = odfDocument(
    file   => 'testspreadsheet.ods',
    create => 'spreadsheet');
$doc->expandTable(0,5,10);
for my $r (0..4){
  for my $c (0..9){
    $doc->cellValue(0,$r,$c,"text at ".chr(65+$c).($r+1));
  }
}
$doc->save;