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

return @path;
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation. Donate to TPF!
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.