Help for this page

Select Code to Download

Select or download this

my$file='file.pdf';
my $oldpdf = CAM::PDF->new($file) or die "$CAM::PDF::errstr\n";

...
    $oldpdf->extractPages(1..100);
    $oldpdf->cleanoutput("split_$file");
}