#!/usr/bin/perl
use warnings;
use strict;
use PDF::Reuse;
use Encode;

prFile('test.pdf');

#reading UTF-8 data from file
open FILE, "<testFile.txt" or die "$!\n";;

my $content = "";
my $y = 760;
while (<FILE>)
{
   chomp;
   $content = decode('CP1253', $_); #My test file is in Windows Greek

   prFont('H');
   prText(100, $y, $content );
   $y-=12;
   prTTFont('arialuni.ttf');
   prText(100, $y, $content );
   $y-=40;
}
prEnd();

close FILE;