See the preprocess argument -- if you pass a code reference, it'll apply it to the list returned by readdir before calling your wanted coderef. Something like this, perhaps:

find({ wanted => \&wanted, preprocess => sub {
    sort { -M $a <=> -M $b } @_;
},
}, '.');
[download]