Select Code to Download

open (FILE, "$indx_tem")  or die " $indx_tem: $!";
open (FILE1, ">$indx")  or die "$indx: $!";
...
    # print the template to file
    $template->output(print_to => *FILE1);
    last;

print header();

...
   }
}
print end_html();