#!/usr/bin/perl 

use CAM::PDF;
use CAM::PDF::PageText;
use Data::Dumper;

my $doc = CAM::PDF->new($ARGV[0], q{}, q{}, 1) || print "checkMeta: error opening pdf $CAM::PDF::errstr\n";
if(ref($doc) ne 'CAM::PDF') {
    print "checkMeta: error opening pdf ", ref($doc), "\n";
    #print Dumper($doc);
} else {
    print "okay\n";
}