Select Code to Download

print  "open the original document \n";
my $pdf1 = CAM::PDF->new($doc1);

print "save it to the new location \n";
$pdf1->output($newdoc1);

print  "open the original document \n";
my $pdf1 = CAM::PDF->new($doc1);

print "save it to the new location \n";
$pdf1->cleanoutput($newdoc1);

Bad request for object 1121 at position 0 in the file
Use of uninitialized value in string eq at C:/Dwimperl/perl/site/lib/C
+AM/PDF.pm
line 4898.
Not a ref at C:/Dwimperl/perl/site/lib/CAM/PDF.pm line 5273.

[
    [0] undef,
...
    [4] 1,
    [5] 1
]