Select Code to Download

          <tr>
          <td colspan=3>
...
        </table>                
           </body>
          </html>

open(FILE, "$text_file") || print "Can't open output file1: $text_file
+\n";
  
...
    print DATA_OUT $save;
    close FILE;  
   print  $save;