use PDF::API2::Simple;

use Encode;
use Gaia::Common::Utils;

my $pdf = PDF::API2::Simple->new(
    file => 'root/tmp/foo.pdf',
    width => 595,
    height => 842
);

my $font = $pdf->pdf->ttfont('root/statics/font/stsong.ttf');

$pdf->add_page();
$pdf->add_font('', $font, '12' ); # note this line need to be after above line.

$str = "欢迎进入Perl的世界 Hello World";
$str = decode("utf-8", $str);
#$str = encode("utf-8", $str);
# Count
$pdf->text(
    $str,
    x           => 100,
    y           => 700,
    font_size   => 12,
);

$pdf->save();