my $utftext=qq(SOme UTF text);
#$utftext=encode("utf8", decode("cp1251", $utftext) ) ;
#$utftext=encode("utf8", $utftext ) ;

my $pdf;
$pdf = PDF::API2->open('first.pdf');

my $page_number = 1;
my $page = $pdf->openpage($page_number);

my $font = $pdf->corefont('Verdana');# ,-encoding => 'utf8'

my $text = $page->text(); 
$text->font($font, 30);
$text->translate(359, 713);
$text->text("$utftext");

$pdf->saveas('mysaved.pdf');