Convertir deux PDF A5 en un PDF A4

Voici un script Perl pour convertir un document PDF de deux pages A5 vers une page A4 :

#!/usr/bin/perl

use strict;
use warnings;
use PDF::API2;
use PDF::API2::Page;

my $pdf = PDF::API2->new;
$pdf->mediabox(595,842);

my $old = PDF::API2->open('mydoc-a5.pdf');

my $xo = $pdf->importPageIntoForm($old,1);
my $page = $pdf->page;
my $gfx = $page->gfx;
$gfx->formimage($xo,0,420,1);
$xo = $pdf->importPageIntoForm($old,2);
$gfx->formimage($xo,0,0,1);

$pdf->saveas("mydoc-a4.pdf");