use CAM::PDF;
my $doc = CAM::PDF->new($ARGV[0]) || die "$CAM::PDF::errstr\n";
my $pages = $doc->numPages();
print $pages;

for (1..$pages)
{
print $_ if ($doc->getPageText($_) eq '');
}