#!/usr/bin/perl use PDF::API2; if(2 > scalar @ARGV) { print <<"EOT"; Usage: $0 <outfile> <infile1> ... <infileN> merges serveral pdf files into on ;-) cheers, fredo EOT } my $outfile=shift @ARGV; my $pdf=PDF::API2->new; foreach my $in (@ARGV) { print STDERR 'loading file $in .'; my $inpdf=PDF::API2->open($in); my $pages=scalar @{$inpdf->{pagestack}}; foreach my $page (1..$pages) { print STDERR "$page."; $pdf->importpage($inpdf,$page); } $inpdf->end(); print STDERR " done.\n"; } $pdf->saveas($outfile);