$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;