$/ = \65535;  # You can try different numbers here.
print {$NEW} $header;
print {$NEW} $_ while <$OLD>;

##</code><code>##

print {$NEW} $_ while read $OLD, $_, 2 ** 30 - 1;