#!/usr/pkg/bin/perl

# forjeremy.pl, a quick and dirty script to cut out some pages from a PDF
# Leonardo Taccari, leonardo1990[at]gmail[dot]com

use warnings;
use strict;
use PDF::Reuse;

# Read the options from the shell via @ARGV
my ($mypdf, $firstpage, $lastpage) = @ARGV;

# Open our final PDF and put it to STDOUT
prFile();

# Get pages from $firstpage to $lastpage in our $mypdf
prDoc($mypdf, $firstpage, $lastpage);

# Close our PDF
prEnd();