#!/usr/bin/perl
use strict;
use warnings;
use PDF::API2;
use Encode;
use Encode::CN;
use utf8;

my $name = encode("euc-cn",'中文');
my $pdf = PDF::API2->open('ns.pdf');
$pdf->saveas("ns001.pdf");
$pdf = PDF::API2->open("ns001.pdf");
my $page = $pdf->openpage(1);
$page->mediabox('A4');
my $fnt = $pdf->corefont('Courier');
my $gfx = $page->gfx;
$gfx->textlabel(220,690,$fnt,20,$name);
$pdf->update;