Perl


print "Hello world\n";
use OpenOffice::OODoc;

my $doc = odfMeta(file => ‘testCases.odt’);
my $title = $doc->title;
if ($title) { print “The title is $title\n”; }
else { print “There is no title\n”; }


my $doc = odfDocument(file => 'testCases.odt');
my $text = $doc->getTextContent;
print $text;