http://www.perlmonks.org?node_id=1019056


in reply to Something like File::Find with sorting

Why not use File::Find::find's preprocess option? Something along the lines of

File::Find::find({preprocess=>sub { return sort {uc $a cmp uc $b} @_ }, wanted=>sub { return if (-d); say $_; } },@ARGV);