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

# Create a blank PDF file
my $pdf = PDF::API2->new();

# Add a blank page
my $page = $pdf->page();

my $font = $pdf->ttfont('DejaVuSans.ttf');

# Add some text to the page
my $text = $page->text();

$text->font($font, 20);
$text->translate(80, 710);

my $html = "Character one: ω character two: &#8734";
my $decoded_string = decode_entities($html);
$text->text($decoded_string);

# Save the PDF
$pdf->saveas('test.pdf');