#!/usr/bin/perl
use strict;
use warnings;
use PDF::API2;
my $imageFile = 'test.jpg';
my $doc = new PDF::API2( -file => "$0.pdf" );
my $page = $doc->page();
my $gfx = $page->gfx();
my $pic = $doc->image_jpeg( $imageFile );
$gfx->image( $pic, 100, 100, 1 );
$doc->save();