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

if (my $doc = odfDocument(file => 'irgend_ein_ooffice_dokument.odt')) {
	$doc->save('test_ooffice_datei.odt');
}
else { die __LINE__; }