#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use PDF::API2;

my $content='∮ E⋅da = Q, roboticus n → ∞, ∑ f(i) = ∏ g(i)';

my $pdf = PDF::API2->new();
my $page = $pdf->page();
$page->mediabox('Letter');
my $font = $pdf->ttfont('/usr/share/cups/fonts/FreeMono.ttf', -encoding=>'utf-8');
my $text = $page->text();
$text->font($font, 20);
$text->translate(15,15);
$text->text($content);
$pdf->saveas('test_603.pdf');