Select Code to Download

use Modern::Perl;

...
close $outfh;
rename "orders.txt", "orders.txt.bak";
rename "orders.txt.tmp", "orders.txt";

use strict;
use warnings;
...
    $line = join( "\t", @vals ) . "\n";
}
untie @lines;