my @dirs = glob "/var/lib/testverzeichnis/Projekte/Projektenummern/*/*/";
foreach $dir (@dirs)
{
find(\&wanted, "$dir");
print "$dir\n$latestfile\n";
}
sub wanted 
{	 
    my $name = $File::Find::name;
    if (-f $name) {
        my @stats = stat($name);
        if ($stats[9] > $mtime) 
		{	
            $mtime = $stats[9];
            $latestfile = $name;
		}
    }
}