binmode $f, ':crlf';
$f->binmode(':raw:crlf');