use File::Glob 'bsd_glob';

my @files= bsd_glob $dir;

print "$_\n" for @files;