#!/usr/bin/perl
use CGI;
use PDF::API2;
use constant mm => 25.4 / 72;
$cgi = new CGI;
$f1 = $cgi->param(f1);
#Content-Type: text/html; charset=utf-8\n
#
if (defined($f1))
{
open (FILE, ">utf8_test1.out") or die "Can't open outfile";
print FILE $f1;
close FILE;
open (FILE, ";
close FILE;
$pdf = PDF::API2->new();
$font1 = $pdf->corefont('Arial');
$page = $pdf->page; # Add blank page
$page->mediabox(210/mm, 297/mm);
$text = $page->text();
$text->font($font1, 28);
$text->translate(20/mm ,280/mm);
# A quick hack to handle a couple of special chars
$f2 =~ s/\303\251/\351/g; # e-acute
$f2 =~ s/\303\272/\372/g; # u-acute
$text->text('PDF Output:' . $f2);
$pdf->saveas('utf8_test1.pdf');
}
print <
Test UTF-8
EOF