use File::Find;

my $dir = "c:/test";

find(\&dir_all, $dir);

 sub dir_all
 {
   push (@files, $File::Find::name);
 }
 
 print @files;