use File::Find;
my @dir = 'Y:/mis/';  
my @path;
find sub { push @path, $File::Find::name if -f }, @dirs; 

return @path;
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.