#!/usr/bin/env perl

use strict;
use warnings;
use autodie;

use PDF::API2;
use GD::Tiler 'tile';

my $pdf_file = 'tiled_dogs.pdf';
my $png_file = 'tiled_dogs.png';
my @dog_jpegs = qw{husky.jpg labrador.jpg retriever.jpg};

my $tiled_dogs = tile(
    Images => [@dog_jpegs],
    Center          => 1,
    ImagesPerRow    => 3,
);

my $pdf = PDF::API2::->new($pdf_file);
my $page = $pdf->page();

open my $png_fh, '>:raw', $png_file;
$png_fh->print($tiled_dogs);
close $png_fh;
my $canine_triptych = $pdf->image($png_file);
unlink $png_file;

$page->object($canine_triptych, 100, 650, 400);
$pdf->save($pdf_file);