Select Code to Download

open PREV,'<','prev.txt' or die "$!";
my %prev_days=();
...
  my @f = split /\s+/,$_;
  $prev_days{$f[2]} = $f[5];
}

while (<$file>) {
  my @f = split '\s+', $_;
...
  my $pfmt = "%-14s %-5s %-8s %-3s %-12s %-12s %-6s %-6s %-6s %-6s\n";
  printf OUT $pfmt, @f[0..3], fmt_mdy($f[4]), fmt_mdy($f[5]), $diff, $
+amt, fmt_curr($cost), $prev;
}