use open OUT => ':raw:perlio';