use strict;
use CGI qw(:standard);

print header();
print "<table>\n";
while (<DATA>) {
	chomp;
	print "\t<tr>\n";
	print map { "\t\t<td>$_</td>\n"  } split(/,/,$_);
	print "\t</tr>\n";
}
print "</table>\n";


__DATA__
ACM Computing Surveys, InfoTrac, ExpAcd, Dec-96
ACM Computing Surveys, PDQ, ABIGlobal, Mar-96
ACM Computing Surveys, PDQ,PAbsII, Mar-96
ACM Transactions on Computer Systems, InfoTrac, ExpAcd,Nov-96
Communications of the ACM, InfoTrac, ExpAcd, Jan-89
Communications of the ACM, InfoTrac, GBus, Jan-88
Communications of the ACM, PDQ, ABIGlobal, Jan-92
Communications of the ACM, PDQ, PAbsII, Jan-92