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

use constant FALSE => 0;
use constant TRUE  => 1;

my $doc = odfDocument(
     file   => "MyDocument.odt",
     create => 'text'
);
my $rightStyle = $doc->createStyle(
     "RightStyle",
     family     => 'paragraph',
     parent     => 'Standard',
     properties => {
          '-area'             => 'paragraph',
          'fo:text-align'     => 'right',
          'style:font-name'   => 'Times New Roman'
     }
);
my $leftStyle = $doc->createStyle(
     "LeftStyle",
     family     => 'paragraph',
     parent     => 'Standard',
     properties => {
          '-area'             => 'paragraph',
          'fo:text-align'     => 'left',
          'style:font-name'   => 'Times New Roman'
     }
);
$doc->appendParagraph(
     text => "RightStyle-Applied",
     style => "RightStyle"
);

$doc->appendParagraph(
     text => "LeftStyle-Applied",
     style => "LeftStyle"
);

$doc->appendParagraph(
     text => "\n\nThis is a test\n------\n",
     style => "LeftStyle"
);

$doc->save;

exit 0;
### End of Main ###
### -- Begin of Subroutines --- ###
### -- End of Subroutines --- ###
###--- End of File ---###