use strict;
use warnings;
use File::Find::Rule;

my $dir = ".";

my @files = File::Find::Rule->file()->in($dir);

print "$_\n" for sort { lc $a cmp lc $b } @files;