use strict; use 5.01; use File::Find; my $dir = "lib"; File::Find::find (\&search, $dir); my @files; sub search { push @files, $_ if -f; } say for sort { lc($a) cmp lc($b) } @files;