Select Code to Download

use strict;
use warnings;
...
close ORIG;
close TEMP or die "Unable to close output file: $!\n";
rename $tempfile, $origfile;

use strict;
use warnings;
...
    unshift @array, $string;
    untie @array;
}