note
clueless newbie
<p>Why not use File::Find::find's <a href=http://search.cpan.org/~dom/perl-5.12.5/lib/File/Find.pm#%options>preprocess option</a>? Something along the lines of </p>
<code>
File::Find::find({preprocess=>sub {
return sort {uc $a cmp uc $b} @_
},
wanted=>sub {
return if (-d);
say $_;
}
},@ARGV);
</code>
1019048
1019048