. It can produce quite advanced text markup, including mixing fonts colors, with justification and reflow etc.
#!/usr/bin/perl
use strict;
use PDF::API2;
use PDF::APIx::Layout;
my $pdf=PDF::API2->new;
my @fonts = (
[$pdf->corefont('Times-Roman',-encode=>'latin1'), 'default',
$pdf->corefont('Times-Bold',-encode=>'latin1'), 'bold', 'regular'
+]
);
my $cell = PDF::APIx::Layout->MarkupText(
q|<p size="15">Hello <span color="blue" face="bold">bold new</span
+> world</p>|,
-fontreg=>\@fonts,
-background=>'#aff',
-align=>'c'
);
my $page = $pdf->page;
my $gfx = $page->gfx;
$cell->render($pdf,$page,$gfx,100,500,100,100);
$pdf->saveas('/tmp/hello_world.pdf');