$q = new CGI;
$template = HTML::Template->new(filename => "$displaypage",
                                          associate => $q);
  my @loop;
  foreach $index (sort {$a <=> $b} keys %hashtable) {
    my ($fn) = @{$hashtable{$index}};
    my %row = (
       index => $index,
       fn    => $fn ,
       check => " ");
       push (@loop, \%row);
  }
  $template->param(files_loop=>  \@loop);
  send_header();
  print $template->output;