#!/usr/bin/perl -w
use PDF::Extract;

my $pdf=newPDF::Extract(PDFPages=>"1", PDFDoc=>"/folder/form.pdf");

my $res $pdf->savePDFExtract(PDFPages=>"1", PDFDoc=>'/folder/form.pdf', PDFCache=>"/folder");

print 'ERROR: '.$pdf->getVars("PDFError") unless $res;