use OpenOffice::OODoc;

# démarrer un nouveau document
my $document = ooDocument
  (
   file            => 'fichier_de_sortie.swi',
   create          => 'presentation'
  );

$document->createImageStyle("slide");

# itérer sur les noms de fichiers images (open est en dehors de ce fragment de code)
my $i=1;
while (my $imgfile=<IN>){
  chomp($imgfile);


# démarrer une nouvelle page/diapositive
  my $page = $document->appendElement
    ('//office:body',0,'draw:page');

# inclure l'image à sa taille entière
my $image=  $document->createImageElement
    (
     "Slide".$i,
     description     => "image ".$i." filename:".$imgfile,
     page            => $page,
     position        => "0,0",
     import          => $imgfile,
     size            => "28cm, 21cm",
     style           => "slide"
    );

$i++;

}

$document->save;