Select Code to Download

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

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