#!/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(); 
}

The file $datei can't be found, aborts

The error occurred when executing:
 at C:/Perl/site/lib/PDF/Reuse.pm line 1231
	PDF::Reuse::findGet('$datei', '') called at blib\lib\PDF\Reuse.pm (autosplit into blib\lib\auto\PDF\Reuse\analysera.al) line 5856
	PDF::Reuse::analysera('$datei', 1, 3) called at blib\lib\PDF\Reuse.pm (autosplit into blib\lib\auto\PDF\Reuse\prDoc.al) line 3562
	PDF::Reuse::prDoc('HASH(0x187ad34)') called at C:/Dokumente und Einstellungen/Administrator/Eigene Dateien/Eclipse_Workspace/Perl/PDF/pdf.pl line 22

Situation when the error occurred

   Bytes written to the current pdf-file,    pos    = 15
   Object processed, not necessarily written objNr  = 3
   Current pdf-file,                         utfil  = DIE_NEUE_PDF.pdf-n
   File logging the run,                     runfil = undef
   Local time                                       = Mon Feb  7 16:58:37 2011