Select Code to Download

#!/usr/bin/perl
use strict;
...
Dates    : %d
Records  : %d
Run Time : %d s",0+keys %total, 0+keys %data, $records, $dur;

open OUT,'>','products.txt' or die "$!";
my @d = (0,31,28,31,30,31,30,31,31,30,31,30,31);
...
  }
}
close OUT;