#!/usr/local/bin/perl -w
###########################################
# oo-dumper - Dump an OpenOffice document
# Mike Schilli, 2011 (m@perlmeister.com)
###########################################
use strict;
use OpenOffice::OODoc;

(my $file) = @ARGV;

die "usage: $0 file" unless defined $file;

my $doc = ooDocument( 
    file   => $file,
    member => "content",
);

(my $element) = $doc->selectElements(
    '//office:body');

print $element->_dump();