Select Code to Download

use strict;
use warnings;
...
#print first new get lines and then old ones
print $new_file $_ for @new_lines,@orig_lines;