Select Code to Download

use File::Basename;
# ...
...
                                                                      
+          
  print Tr( {-align=>'center'}, @table_cells );
}

while( my @cols= splice @files, 0, 4 ) {
  my @table_cells;
...
                                                                      
+          
  print Tr( {-align=>'center'}, td(\@table_cells) );
}