Crear PDF con perl

[alexluz]

use PDF::API2; # include

[alexluz]

Modifique un archivo PDF que muestra un contrato, agregándole texto con coordenadas

my $page2 = $pdf->page;
$page2 = $pdf->openpage(1);
my $f2=$pdf->ttfont($fuenteTTF);
my $gfx2=$page2->gfx;

$gfx2->textlabel(260,685,$f2,14,$ano);
$gfx2->textlabel(230,685,$f2,14,$mes);
$gfx2->textlabel(200,685,$f2,14,$dia);
$gfx2->textlabel(150,632,$f2,10,$nombre);
$gfx2->textlabel(150,605,$f2,10,$direccion);
$gfx2->textlabel(150,551,$f2,10,$contrato);
$gfx2->textlabel(150,524,$f2,10,$cuenta);
$gfx2->textlabel(150,578,$f2,10,$ciudad);

Cundo abro las hojas del PDF para agregarle el texto me genera dos hojas de mas que no están en el archivo original y no se agregan en ningún momento durante el código

¿Cómo puedo eliminar estas dos hojas?


Esto es lo básico:

$pdf = PDF::API2->open('my/old.pdf');
...
$pdf->saveas("our/new.pdf");

$pdf = PDF::API2->open('our/to/be/updated.pdf');
...
$pdf->update;