#!/usr/bin/perl

use warnings;
use strict;
use Data::Dumper;
use PDF::Reuse;

opendir (DIR, 'C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Eclipse_Workspace\Perl\PDF\old') || die "Fehler beim Einlesen des Verzeichnisses: $!";

my @files = readdir(DIR);
close DIR;
shift(@files); 		# . 		raus
shift(@files);		# .. 		raus



print Dumper (@files);
print "FOREACH\n";
foreach my $datei (@files){
	print "$datei\n";
	prFile("$datei-n"); #die neue pdf
	prDoc(	# seite 1 bis 2 der alten geht in die neue
		{ 	
		file 	=>	'$datei',
		first 	=>	1,
		last 	=>	3
		}
	);
	prEnd(); 
}