#!/usr/bin/perl

use strict; 
use warnings;

use 5.010;

use PDF::API2;
use utf8;

my $pdf = PDF::API2->new();
my $page = $pdf->page();
$page->mediabox('A4');

# Helevetica Bold Oblique
my $font1 # = $pdf->corefont('Helvetica-Oblique');
         = $pdf->psfont(
            '/Bibliothek/Fonts/Type 1/Adobe/hvbo____.pfb',             
            -pfmfile => '/Bibliothek/Fonts/Type 1/Adobe/hvbo____.pfm'
         );
# Euro Sans Bold Italic
my $font2 = $pdf->psfont(
            '/Bibliothek/Fonts/XeroxPhaser/eurofont/_2bi____.pfb',             
            -pfmfile => '/Bibliothek/Fonts/XeroxPhaser/eurofont/_2bi____.pfm'
         ); 
         
my $text = $page->text();
$text->font($font1, 20);
$text->translate(200, 700);
$text->text('1');
$text->font($font2, 20);
$text->text('€');

$pdf->saveas('new-t1.pdf');