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

# tested on http://www.mozilla.org/js/language/E262-3.pdf

my $filename = 'E262-3.pdf';
my $pages = '1-3';
my $outputname = 'E262-31..3.pdf'; # see PDF::Extract documentation

my $pdf = PDF::Extract->new();
print "Saving from $filename pages $pages to $outputname";
$pdf->savePDFExtract( PDFDoc => $filename, PDFPages => $pages );
print ",done.\n";
my $error = $pdf->getVars('PDFError');
warn $error if $error;

if (-f $outputname) {
  print "There now exists a file '$outputname'\n";
} else {
  print "No file '$outputname' was found. Maybe there was some error?\n";
};