read() is a lower level routine and it works with binary. You are just copying raw bits from $fh to OUTF.

set $fh and OUTF to binary mode by putting this: binmode($fh); binmode(OUTF); before the while statement.

binmode() a Perl function - read more here: binmode.