open FH, ">$WriteDirectory/$file" || die "Can't open $file: $!";