#!/usr/bin/perl -w
use strict;
use warnings;
require "myHebrew.pl";
our ($alef, $bet, $gimel, $dalet, $he, $vav, $zayin,
     $het, $tet, $yod, $final_kaf, $kaf, $lamed, $final_mem, $mem,
     $final_nun, $nun, $samekh, $ayin, $final_pe, $pe, $final_tsadi,
     $tsadi, $qof, $resh, $shin, $tav, $geresh, $gershayim);
use OpenOffice::OODoc;
use utf8;


my $header = $bet . $samekh . $gershayim . $dalet;
my $doc = odfDocument(
     file         => "Parsha.odt",
     create       => 'text'
);
my $p = $doc->appendParagraph(
     text => "",
     style => "optionalParagraphStyle"
);
$doc->extendText($p, $header);

$p = $doc->appendParagraph(text => $header,
     style => "optionalParagraphStyle"
);
$doc->save;

exit 0;
### End of File ###