use PDF::API2;
use Encode;

# Create a blank PDF file
my $pdf = PDF::API2->new();
# Add a blank page
my $page = $pdf->page();
my $font = $pdf->ttfont('/tmp/stsong.ttf');
my $ustring = "欢迎进入Perl PDF的世界";
$ustring = decode("utf-8", $ustring);

# Add some text to the page
my $text = $page->text();
$text->font($font, 20);
$text->translate(80, 710);
$text->text($ustring);
$pdf->saveas('/tmp/foo.pdf');