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

my $file='test.pdf';

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

if ($oldpdf->pages() > 1) {
    say $oldpdf->pages() . ' pages.';
    for my $page_nb (1..$oldpdf->pages()) {
        $newpdf->import_page($oldpdf, $page_nb, $page_nb);
    }
    $newpdf->saveas("test_2.pdf");
}