From:	Naji, Khalid	Date:	Wed Jan 13 04:39:34 2010
Subject:	Module CAM::PDF

Hello,

The following Script don't work with all PDF-Files.

The generated Error is: Can't call method "getRootDict" on an undefined
value at .../perl5/site_perl/5.8.8/CAM/PDF.pm line 3766

################ The Script ####################
use strict; 
use CGI;
my $cgi = new CGI; 


use CAM::PDF;

use File::Basename;

my ($pdf, $anotherpdf);

#The Files
my ($pdf1) = '/tmp/pdf1.pdf'; 
my ($pdf2) = '/tmp/download/pdf2.pdf';
my ($pdfout) = '/tmp/edl/20090272371_7948.pdf';

eval {
$pdf = CAM::PDF->new($pdf1);
$anotherpdf = CAM::PDF->new($pdf2);
$pdf->appendPDF($anotherpdf);
$pdf->cleanoutput($pdfout);
};
if ($@) {
print "Error: $@ \n";
}
else { print "Success!\n";}
###########################################

Thank you,
KN