#!/usr/bin/perl
#
use strict;
use PDF::API2;
my $file_in = $ARGV[0];
my $prepend = $ARGV[1];
$prepend ||= 'out';
my $pdf_in = PDF::API2->open($file_in) or die;
my $count = $pdf_in->pages;
for my $i ( 0 .. ( $count - 1 )){
my $_i = ($i+1);
my $file_out = "$file_in.$_i.pdf";
my $pdf_out = PDF::API2->new or die;
$pdf_out->importpage( $pdf_in, $_i ) or die;
$pdf_out->saveas($file_out) or die;
print STDERR "saved $file_out\n";
}
exit;