03371 
_ 
FM 
_ 
i 
-xv 
i 
.qx 
d 

6/28/06 

7 
: 
31 

PM 

P 
age 
i

##</code><code>##

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 '');
}