use PDF::API2;
my $pdf = PDF::API2->open("test.pdf") or die $@;
$pdf->saveas("test2.pdf");