use CAM::PDF;
use CAM::PDF::PageText;

my $pdf_file = "foo.pdf";
my $obj      = CAM::PDF->new($pdf_file) || die "$CAM::PDF::errstr\n";
my $tree     = $obj->getPageContentTree(1);
my $txt      = CAM::PDF::PageText->render($tree);
CAM::PDF->asciify(\$txt);       # same results without this statement.
print $txt;