open(W, "+< $file");

この+<ってどういう意味よ(;´Д`)
+>とかもあるのかね？