use CGI qw(:all);
print header;
print start_html;
print "<table>\n"; # yuck... I hate this...
foreach my $row(@sorted_data){ # Don't know where @sorted data came from...
   print tr(map { td($_) } split(/|/,$row) );
}
print "</table>"; # end yuck
print end_html;