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

##</code><code>##

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