#!/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