my $anfangsDatum = "0201";

my $endDatum = "0612";

my $pfadUrsprung = "C:/Documents and Settings/Desktop/testordner";


opendir(DIR, $pfadUrsprung);
my @Eintraege = readdir(DIR);
closedir(DIR);

foreach(@Eintraege) 
{
	#le heißt >= und ge heißt <=
	if($_ ge $anfangsDatum or $_ le $endDatum)
	{
		print "$_\n";
	}
}