#!/usr/bin/perl

print("Usage: pdfselect file.pdf Start End
"),exit if !@ARGV;

my($file,$start,$end)=@ARGV;

print "$file,$start,$end\n";

#Output russian string of given number(s). v1.02\n
# Input/Output format specification:
#  -m | -f | -a \t\t masculine(default), feminine, neutral
#  -v \t\t\t Print input number(s)
#  -n \t\t\t Without symbol <CR>\n
#Options and number(s) may be random positioned. Max number is 999 999 999 999
#For bug reporting instructions, please to:
#<angel\@feht.dgtu.donetsk.ua>.

# Для извлечения PDF страници пр.
use PDF::Reuse;

# Вырезать PDF-страницы
prFile("$start-$end.$file");
prDoc($file,$start,$end);
prEnd();