#!/usr/bin/perl

use strict;
use warnings;

my $string = "pépé";

use PDF::EasyPDF;
my $pdf = PDF::EasyPDF->new({file=>"test.pdf",x=>mm(210),y=>mm(297)});

$pdf->text(mm(20),mm(297-20), $string )
$pdf->close;

print $string


##</code><code>##


use utf8;
use open ':std' => ':utf8';
utf8::encode($string);