!/usr/bin/perl

use strict;
use warnings;

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

my $filename = shift || die "Supply pdf on command line\n";

my $pdf = CAM::PDF->new($filename);

print text_from_page(1);

sub text_from_page {
my $pg_num = shift;

return
CAM::PDF::PageText->render($pdf->getPageContentTree($pg_num));
}

##</code><code>##

Failed to open filter FlateDecode (Text::PDF::FlateDecode)
Unrecognized type in parseAny:
1 &#1717;ZYs&#65533;&#65533;~_&#65533;	V&#65533;&#65533;&#65533;%&#65533;&#65533;&#65533;&#65533;&#65533;K&#65533;N&#65533;&#65533;Q&#65533;Jy&#65533;&#65533;9$a...