#!/usr/bin/perl
use strict;
use PDF::Builder;
 
my $pdf = PDF::Builder->new();
my $page = $pdf->page();
 
my $img_obj = $pdf->image_jpeg('myimage.jpg');
my $grfx = $page->gfx();
$grfx->image($img_obj, 5,5, 500,500);
$pdf->saveas('new.pdf');