my $pdf = PDF::API2->new( -file => "Test.pdf" );
my $page1 = $pdf->page;
$page1->mediabox (210/mm, 297/mm);
my $gfx = $page1->gfx;
my $text = $page1->text;
my %fonts = (
  Helvetica => {
    Roman  => $pdf->corefont( 'Helvetica', -encoding => 'latin1' ),
  }
);

##</code><code>##

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

##</code><code>##

$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);

##</code><code>##

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

##</code><code>##

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

##</code><code>##

$pdf->save;