Select Code to Download

#!/usr/bin/env perl

...
use OpenOffice::OODoc;

my $document = odfDocument(file => 'pm_1150577_odt_corruption.odt');

$document->save;