my @dirs = glob "/var/lib/testverzeichnis/Projekte/Projektenummern";
for $dir (@dirs)
{
print "$dir\n";

opendir (DIR, $dir);

find(\&wanted,$dir) ;

sub wanted
{
my $file = $File::Find::name;
push (@files,$file) if(-M $file > 0);
}

foreach $files (@files)	
{

$alter = -M "$files";
$kurzalter = sprintf "%.0f",$alter;	
print "---- $kurzalter Tage - $files\n";
if ($kurzalter <90)
{$filesdann = 1}
else{
$filesdann = 0 }
}
closedir (DIR);
}
if ($filesdann == 0)
{
print "$dir - Alter: $kurzalter Tage\n";
}