#!usr/bin/perl

use strict;
use warnings;

use OpenOffice::OODoc;

my $file = "mydoc.odt"; # die Template-Datei mit den Platzhaltern
my $firstname = "Bianca"; # ein Wert aus der Adress-DB
my $report = "Dieser Text soll an das Dokument angehängt werden.";

utf8::encode($report); # .odt ist standardmäßig utf-8
utf8::encode($firstname);

my $doc = odfDocument(file => $file) or die $!;

# Hier wird ein Platzhalter $FIRSTNAME$ durch den Wert aus der DB ersetzt:
$doc->selectElementsByContent('\$FIRSTNAME\$', $firstname);

# Hier wird dem Dokument ein Text angehängt:
$doc->appendParagraph (text => $report);

$doc->save('out_' . $file) or die $!;

# Jetzt kann das fertige Dokument an den Benutzer ausgeliefert werden.