open FH, ">$WriteDirectory/$file" || die "Can't open $file: $!";
finddepth(&perms, $TraverseDirectory);
close FH;