I got the following error: Use of uninitialized value in pack at C:/Perl/site/lib/Font/TTF/Cmap.pm line 329. Any ideas how to solve the problem ?

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 $font = $pdf->ttfont('mypath/times.ttf');

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

$pdf->saveas('new.pdf');
[download]