$ordner = "E:/Test/testordner/";
opendir ORDNER,"$ordner" || die "opendir von ORDNER nicht möglich";
@files = ("test1.txt","test2.txt");

foreach $file (<$ordner*>) {
    unlink $file;
}
sleep(10);
foreach $file (@files) {
    open OUTPUT, ">$ordner".$file;
}

@files = readdir ORDNER;
$x = @files;
print "number of files: $x\n";
close ORDNER;