use File::Find;
use strict;
use warnings;

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