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;

##</code><code>##

use strict;
use File::Find;

my @files;
find(sub { push @files, $File::Find::name }, '.');
print "I found the following files:\n";
print "$_\n" for @files;