my $dir='../../wordboards/standard'; 

opendir my $dh, $dir or die "Could not open '$dir' for reading '$!'\n";
my @pics = readdir $dh;
closedir $dh;

shift @pics;
shift @pics;

my $pdf = PDF::API2->new();
# Set the page size
my $page = $pdf->page();
$page->mediabox('A0'); #Each A4 is 841 x 595
my $content = $page->gfx;

for (my $row=0; $row<4; $row++){
	for (my $col=0; $col<4; $col++){
		my $count=($row*4)+$col;		
		my $photoFile = $pdf->image_jpeg($dir."/".$pics[$count]);
		$content->image($photoFile, 0, 0);
		$content->transform(
  			-translate => [my $_x = 595+($row*595), my $_y = ($col*842)],	# Top left is 0,0 when rotated (ie bottom left is 842 points to right)
     			-rotate    => 90,
    		);
	}
}