open (FILE, "$indx_tem")  or die " $indx_tem: $!";
open (FILE1, ">$indx")  or die "$indx: $!";
while (<FILE>) {
        # open the HTML template
    my $template = HTML::Template->new(filename => $indx_tem);

    # fill in some parameters in the template
    $template->param(Location => $Location);
    $template->param(Number => $Number);
    $template->param(word => $word);

    # print the template to file
    $template->output(print_to => *FILE1);
    last;

##</code><code>##

print header();


open (FH, "$db")  or die "$db: $!";

while (my $line = <FH>) {

($word,$time,$Number,$Location) = split "\t",$line;

   if ($Number) {  

#template
open (FILE, "$indx_tem")  or die "Can't open $indx_tem: $!";
#file to renew
open (FILE1, ">$indx")  or die "Can't open $indx: $!";
while (<FILE>) {
        # open the HTML template
    my $template = HTML::Template->new(filename => $indx_tem);

    # fill in some parameters in the template
    $template->param(Location => $Location);
    $template->param(Number => $Number);
    $template->param(word => $word);

    # print the template to file
    $template->output(print_to => *FILE1);
    last;

}
close FILE;
close FILE1;
print "finish$Number<br>";     
     
     
   }
}
print end_html();