#!/usr/bin/perl

open(P,"pages");
open(OUT,">doit");

$oldp = 0;
while (<P>) {
   $p = $_ + 13;
   $diff = $p-$oldp;
   print OUT "pdftk proc10-04.pdf cat $oldp-$p output proc10-04/P     $diff\n";
   $oldp = $p+1;
}

close(OUT);