my $doc = CAM::PDF->new($infile) || die "$CAM::PDF::errstr\n";