#!/usr/bin/perl -w

use strict ;
use CGI qw (:standard *table) ;

die "Usage: $0 <input-filename-list>\n" unless @ARGV ;

binmode STDOUT, ':crlf' ;
print start_html (-title => join ('; ', @ARGV)), start_table, "\n" ;
while (<>) {
  tr/\r\n//d ;
  my @cols = map {escapeHTML ($_)} split '\|' ;
  print TR (td ([@cols])), "\n" ;
}
print end_table, end_html ;