use strict; use warnings; use CAM::PDF;
my $pdf = CAM::PDF->new("test.pdf"); # test.pdf is the existing pdf
my $string = $pdf->getPageText(1);
open (C, ">", "test.txt"); print C $string; # print extracted string

##</code><code>##

Failed to open filter FlateDecode (Text::PDF::FlateDecode)
Unrecognized type in parseAny:
1 £ý¢&#9552;«ý&#9577;&#9619;ØÎ&#9600;O&#9618;:&#9824;÷n£Õ&#9577;...

##</code><code>##

@INC=('C:/Perl/lib','C:/Perl/site/lib','.'); # THIS LINE IS ADDED
use strict; use warnings; use CAM::PDF;
my $pdf = CAM::PDF->new("test.pdf"); # test.pdf is the existing pdf
my $string = $pdf->getPageText(1);
open (C, ">", "test.txt"); print C $string; # print extracted string