#!/usr/bin/perl -w

use strict;

use PDF::Extract;
my $pdf;

$pdf=new PDF::Extract( PDFDoc=>"the.pdf");
$pdf->savePDFExtract(PDFPages=>"1 3", PDFCache=>"directory_to" );