#!/usr/bin/perl -w

use RTF::Writer;
use utf8;
use strict;

my $rtf = RTF::Writer->new_to_file("/home/vilfred/test.rtf");
$rtf->prolog( 'title' => "rrr", 'author' => "eee" );

for(1 .. 3){

  $rtf->paragraph(\'\fi450\fs25\b\i',"раздватри\n");

  $rtf->paragraph(\'\fs25\fi450\sl370\slmult1\sb190\sa270',"развдатри\n");

  my $tab = RTF::Writer::TableRowDecl->new( 'widths' => [ 800, 1200 ] );
  $rtf->row( $tab, 'один', 'два xxxxxxx' );
  $rtf->row( $tab, 'три', 'четыыре yyyyyyyyy' );

  $rtf->paragraph(
      \'\qc',  
      $rtf->image( 'filename' => "/home/vilfred/1.png", scalex => 10, scaley => 10 ),
      # scale - масштаб в процентах от исходного размера картинки
  );
}
$rtf->close;