splitpdf.pl

my $doc = CAM::PDF->new( $cfg->infile );

printf( "read %s\n", $cfg->infile );

for my $p ( 1 .. $doc->numPages ) {

    my $outfilename = $cfg->outfilebase;
    $outfilename =~ s/XXXX/$p/;
    printf( "   extracting page %d\n", $p );

    my $outdoc = CAM::PDF->new( $doc->toPDF );
    $outdoc->extractPages( $p );
    $outdoc->cleanoutput( $outfilename );

    printf( "    wrote %s (page %d)\n", $outfilename, $p );
}