use strict;
use warnings;

use PDF::API2;

my $pdf  = PDF::API2->new(-file => "test.pdf");

my $page = $pdf->page;                               
my $txt = $page->text;                               

my $FranklinGothic = $pdf->ttfont('framd.ttf');	# Franklin Gothic Medium
my $Calibri = $pdf->ttfont('calibri.ttf');      # Calibri

my $y = 740;
my $x = 20;

# and some german uglies: äöü
$txt->font($FranklinGothic, 32);         
$txt->translate($x,$y);                 
$txt->text("Franklin Gothic Medium, 32: ÄÖÜß"); 
$y -= 60;

$txt->font($Calibri, 32);
$txt->translate($x,$y); 
$txt->text("Calibri, 32:  ÄÖÜß"); 
$y -= 60;

$pdf->finishobjects($page,$txt);
$pdf->saveas;
$pdf->end();