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

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

##</code><code>##

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

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

##</code><code>##

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

##</code><code>##

[
    [0] undef,
    [1] undef,
    [2] 1,
    [3] 1,
    [4] 1,
    [5] 1
]