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

prFile('test.pdf');

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

my $content = "";
while (<FILE>)
{
    $content .= $_;
}

print "$content\n";

prText(100, 500, $content );

prEnd();

close FILE;