Select Code to Download

   foreach $day (@dow) {
      $TestDate = "$year$cur_month$link_num[$day]";
...
   } else {
      $output_pub[$current_line] .= "$_    ";
   }