#!/usr/bin/perl
use strict;
use warnings;
use PDF::API2;
use Data::Dumper;

my $file = 'test.pdf';
my $oldpdf = PDF::API2->open($file);

my @steps = map { 10 * $_ } 1 .. 10;

# print Dumper \@steps;

if ($oldpdf->pages() > 100) {
    my $num = 0;
    my $last_Step = 1;
    for my $step (@steps) {
	my $newpdf = PDF::API2->new();
	for my $page_nb ($last_Step .. $step) {
	    $newpdf->import_page($oldpdf, $page_nb, $num);
	}
	$num++;
	$newpdf->saveas("pdf/$num"."_"."$file");
	$last_Step = $step;
    }
}

__END__

$ ll pdf/
total 5736
drwxrwxr-x 2 tinyos tinyos    4096 Jul 21 12:49 ./
drwxrwxr-x 8 tinyos tinyos    4096 Jul 21 12:48 ../
-rw-rw-r-- 1 tinyos tinyos  980911 Jul 21 12:49 10_test.pdf
-rw-rw-r-- 1 tinyos tinyos  274610 Jul 21 12:49 1_test.pdf
-rw-rw-r-- 1 tinyos tinyos  508740 Jul 21 12:49 2_test.pdf
-rw-rw-r-- 1 tinyos tinyos  340428 Jul 21 12:49 3_test.pdf
-rw-rw-r-- 1 tinyos tinyos  355785 Jul 21 12:49 4_test.pdf
-rw-rw-r-- 1 tinyos tinyos  216205 Jul 21 12:49 5_test.pdf
-rw-rw-r-- 1 tinyos tinyos  505735 Jul 21 12:49 6_test.pdf
-rw-rw-r-- 1 tinyos tinyos  248888 Jul 21 12:49 7_test.pdf
-rw-rw-r-- 1 tinyos tinyos 1027594 Jul 21 12:49 8_test.pdf
-rw-rw-r-- 1 tinyos tinyos 1387582 Jul 21 12:49 9_test.pdf