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