http://qs1969.pair.com?node_id=613261

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