188    open (IN,"$header") || die "can't open file $header: $!";
    189    open (OUT,">$output") || die "can't open file $output: $!";
    190     while (<IN>) {
    191      print OUT $_;
    192     } # close while
    193    close(IN) || warn "can't close $header: $!";
    194    close(OUT) || warn "can't close $output: $!";
    195 
    196    my $string = "$month$year1";
    197    my @days = ($day1 .. $day2);
    198    @days = map {$_ .= "$string"} @days;