Select Code to Download

use strict;
use warnings;
...
    }
    $newpdf->saveas("_$file");
}

use strict;
use warnings;
...
    $oldpdf->extractPages(1..100);
    $oldpdf->cleanoutput("_$file");
}