use PDF::Extract;
$pdf=new PDF::Extract;
$pdf->servePDFExtract(PDFDoc=>"c:/Docs/my.pdf", PDFPages=>"1-3 31-36");