open $OUT, '>', $NEW or die ...