use strict;
use PDF::API2;

my $source_pdf = $ARGV[0];
my $dest_pdf = $ARGV[1];

my $pdf_d = PDF::API2->new();
my $pdf_s = PDF::API2->open($source_pdf);

for ( my $pdf_page = 1 ;  $pdf_page <= $pdf_s->pages ; $pdf_page++ ){
  my $pdf_d_page = $pdf_d->page();
  my $pdf_d_pageform = $pdf_d->importPageIntoForm($pdf_s, $pdf_page);
  my $pdf_d_gfx = $pdf_d_page->gfx;

  $pdf_d_gfx->formimage($pdf_d_pageform, 0, 0, 1);
}

$pdf_s->end();
$pdf_d->saveas($dest_pdf);
$pdf_d->end();