Select Code to Download

    188    open (IN,"$header") || die "can't open file $header: $!";
    189    open (OUT,">$output") || die "can't open file $output: $!";
...
    196    my $string = "$month$year1";
    197    my @days = ($day1 .. $day2);
    198    @days = map {$_ .= "$string"} @days;