外してるかもしれませんが。

binmode(OUT,":encoding(shiftjis)");