open(LOGFILE, $list);
		@entries = <LOGFILE>;
	close LOGFILE;
	
	&header;

foreach $line (@entries) { 
        @fields = split(/\|/,$line);
		
%field = (CassID => $fields[0],
          CDID => $fields[1],
          Category => $fields[2],
          Title => $fields[3],
          Image => $fields[4],
          Description => $fields[5],
          CASS_Price => $fields[6],
          CD_Price => $fields[7],
          Artist => $fields[8],
          CASS_CatNo => $fields[9],
          CD_CatNo => $fields[10],
          Database => $fields[11],
          Label => $fields[12],
          ID => $fields[13],
          );

		
foreach ($line) {
print <<EOHtml;
html stuff