#!/usr/bin/perl -w
use strict;
use CAM::PDF;

my $self = CAM::PDF->new('test.pdf');

for (1..$self->{'PageCount'}) {
  my $page = $self->getPageText($_) ;
  print "### page #$_ ###\n";
  print $page;
}