use strict;
use warnings;

use PDF::API2;

my $pdf = PDF::API2->new( -file => "sample.pdf" );

my $page = $pdf->page;
$page->mediabox(792,612);

my $photo = $page->gfx;
my $photo_file = $pdf->image_gif('test.gif');
$photo->image( $photo_file, 100,100,600,400);

$pdf->save;
$pdf->end();