#!/usr/bin/perl

use warnings;
use strict;

use File::Find;

my @dirs = glob("/var/lib/testverzeichnis/Projekte/Projektenummern/*/*");

my $latestfile;
my $mtime;

foreach my $dir (@dirs) {
    $latestfile = "";
    $mtime = 0;
    find(\&wanted, "$dir");
    print "$dir\n";
    if ($latestfile eq "") {
        print "No last file found.\n\n";
    } else {
        print "$latestfile\n\n";
    }
}

sub wanted {        
    my $name = $File::Find::name;
    if (-f $name) {
        my @stats = stat($name);
        if ($stats[9] > $mtime) {       
            $mtime = $stats[9];
            $latestfile = $name;
        }
    }
}