Select Code to Download

my $pdf = PDF::API2->new( -file => "Test.pdf" );
my $page1 = $pdf->page;
...
    Roman  => $pdf->corefont( 'Helvetica', -encoding => 'latin1' ),
  }
);

my $EGTransparent = $pdf->egstate();
my $EGNormal = $pdf->egstate();
$EGTransparent->transparency(0.5);
$EGNormal->transparency(0);

$text->egstate($EGTransparent);
$text->font($fonts{Helvetica}{Roman}, 16/pt);
$text->translate(31/mm,250/mm);
$text->text("This is a Test, just so you know", undef);
$text->egstate($EGNormal);

$gfx->egstate($EGTransparent);
$gfx->image($pdf->image_tiff("Image.tif"), 1/mm, 148/mm, 137/mm, 137/m
+m);
$gfx->egstate($EGNormal);

$text->translate(31/mm,200/mm);
$text->text("This is a Test, just so you know", undef);

$pdf->save;