#!/usr/bin/perl                                                                                                                 
use warnings;
use strict;
use CAM::PDF;

my $pdf_path = $ARGV[0] or die "No pdf specified";
my $pdf = CAM::PDF->new($pdf_path);

my $text = '';

for my $page (1..$pdf->numPages) {
    $text .= $pdf->getPageText($page);
}

open my $file, '>', 'pdftext.txt';
print $file $text;
close $file;