use File::Find;
my @files;

sub find_process {
 push @files, $File::Find::name if /\.xml$/;
}

find(\&find_process, 'C:/test'); ### Note: I'm not familiar with Windo
+ws pathing.
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.