Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    print "New pdf doc contains $count pages\n";
    
    $pdf->saveas('C:/_32/Peugeot/head.pdf');
    
  2. or download this
    Original document contains 138 pages (according to Adobe)
    Original document contains 138 pages (according to PDF::API2)
    $page: PDF::API2::Page=HASH(0x321bc24)
    New pdf doc contains 1 pages