sub extent {
	if (opendir LOAD_DIR, $load_dir) {
		foreach my $file (grep !/^\./, readdir LOAD_DIR) {
			if (open FILE, '<' ."$load_dir\\$file") {
				while (<FILE>) {
					next unless /,/; 				my ($datafile, $value)= split ',' , $_;
					### remove blanks from split-values
					$datafile =~ s/ *$//;
					$value =~ s/ //g;
					chomp $value;
					#warn "<<<<<$value>>>>>"
					if ($value > 10) {
						push @errors, "Datafile '$datafile' changed by '$value' extents.\n";
					}
				}
				close FILE;
			} else {
				push @errors, "File $file konnte nicht geöffnet werden ($!)\n";
			}
		}
		closedir LOAD_DIR;
	} else {
		push @errors,"Verzeichnis '$load_dir' konnte nicht geöffnet werden ($!)\n";
	}
}