use strict;
use warnings;
use 5.010_000;

use ODF::lpOD;

my $file = shift;

my $doc = odf_document->get($file);

my $table = $doc->get_body->get_table();
$table->read_optimize(TRUE);

$table->add_row(number => 1, before => 0, empty => 'true');

$table->get_cell(0,0)->set_text("Bonjour le monde !");

$doc->save();