use File::Glob ':glob';
print "$_\n" for bsd_glob('*.pl', GLOB_NOCASE);