for my $f($first_file..$last_file) {
  push @FILES, $file->($files_exist[$f]);
} 


print header,start_html;
print table({width=>720},
       Tr(
         td({width=>720,colspan=>2},
          img({src=>"/images/logo.gif",alt=>"logo",
               height=>90,width=>710}))),
       Tr(
         td({width=>600},@FILES),
         td({width=>120,rowspan=>100},
          img({src=>"/images/banner.gif",
               height=>450,width=>120,alt=>"banner"}))
         ),
       Tr(
         td($next,$previous)
        ));
        undef $file;
      
print end_html;
#UPDATED, error message
sub er_msg {
  my $error ="@_";
  print header,start_html,p($error),end_html;
  die "$error";
}