use Text::FromAny;

my $pdf_file = "foo.pdf";
my $obj      = Text::FromAny->new(file => $pdf_file);
my $text     = $obj->text;    
print $text;

##</code><code>##

use CAM::PDF;

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

##</code><code>##

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;