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

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