sub test {
    my ($base_dir,$filenames_href) = @_;
    foreach my $filename (keys(%{$filenames_href})) {
        my $file_path = catfile($base_dir,$filename); # Could be file, dir, link, ...
        # TODO: Check if the $file_path is the latest I seen ?
    }
    return $latest_modified_file;
}