#!/usr/bin/perl -w
use PDF::Extract;	 
$pdf=newPDF::Extract(PDFPages=>"1",PDFDoc=>"/folder/form.pdf");
$pdf->savePDFExtract(PDFPages=>"1",
PDFDoc=>'/folder/form.pdf',PDFCache=>"/folder");