#!/usr/bin/env perl

use strict;
use warnings;

use PDF::API2;

my $src = PDF::API2->open('DX.pdf');
my $pdf = PDF::API2::->new();

for my $page_num (2 .. $src->page_count() - 1) {
    $pdf->import_page($src, $page_num, $page_num - 1);
}

$pdf->save('DXout2.pdf');