use File::Find;
$dir = "c:/folder";
sub edit {
print "$File::Find::name"."\n";
}
$s = find(\&edit,$dir);
open(FILE, ">file.txt");
print FILE $s;
close(FILE);