use strict;
use File::Glob qw(bsd_glob); # switch on sane whitespace semantics for glob
my @files = glob('*.xml');

print "I found the following files:\n";
print "$_\n" for @files;