#!/usr/bin/perl
use strict;
use warnings;
use PDF::API2;

my $file='test.pdf';

my $newpdf = PDF::API2->new();
my $oldpdf = PDF::API2->open($file);

if ($oldpdf->pages() > 1) {
    printf " (%d pages)\n", $oldpdf->numPages();
    for my $page_nb (1..8) {
        $newpdf->import_page($oldpdf, $page_nb, $page_nb);
    }
    $newpdf->saveas("test_2.pdf");
}