...
         print $write_dir "$file\n";
...