#!/usr/bin/perl 
use strict;

use PDF::API2;

my $api2 = 0;

foreach (1..100) {    
    &pdfapi2();
}

exit();


sub pdfapi2 {
    
    $api2++;
    printf ("%03d. time PDF::API2\n", $api2) if ($api2 % 10 == 0);

    foreach my $i (1..10) {
        
        # -------------------------------
        # ---------- Variables ----------
        # -------------------------------
        my $page = my $text = my $fontArial = my $fontArialBold = my $fontVerdana = undef;

        my $pdf        = PDF::API2->new(-file => sprintf("file%04d.pdf", $i));
        my $importFile = 'form.pdf';

        my $importPdf = PDF::API2->open($importFile);    
        foreach my $pageNr (1..$importPdf->pages()) {
            $pdf->importpage($importPdf, 1);     
        }

        # --------------------------
        # ---------- Init ----------
        # --------------------------
        $page = $pdf->openpage(1);
        $pdf->preferences(-firstpage => [$page, -fit => 1]);
        $fontArial     = $pdf->corefont('Arial', -encode => 'latin1');
        $fontArialBold = $pdf->corefont('Arial,Bold', -encode => 'latin1');
        $fontVerdana   = $pdf->corefont('Verdana', -encode => 'latin1');
        
        $page = $pdf->openpage(1);
        $text = $page->text();

        # -----------------------------
        # ---------- Content ----------
        # -----------------------------
        $text->font($fontVerdana, 10);

        $text->transform(-translate => [200, 200]);
        $text->text('Just another PDF-File...');

        # ------------------------------------
        # ---------- Save & release ----------
        # ------------------------------------
        $pdf->save();

        $importPdf->release();
        $pdf->release();
    }
}