#!/usr/bin/perl -w
use strict;
print "Content-type:text/html\n\n";

# Grab each line in reverse order
open (NEWS, "<data/news.txt") or die "Can't open news file: $!";
my @articles = reverse <NEWS>; 
close(NEWS);

# Your column names, in the order they appear in the file
my @colNames = qw(time_stamp title date author news avatar);

# Store the contents of the file in a data structure
# (array of hashrefs)
my @table = ();
foreach my $article (@articles)
{
    chomp $article;
    my @vals = split (/\|/, $article);
    # Assign each value to its column name, in a hash
    my %row = ();
    	print<<HTML;
	<table width=400 border=1 cellspacing=0 cellpadding=0>
HTML
    foreach my $col (@colNames)
    {
        $row{$col} = shift @vals;
	print<<HTML;
	<tr>
	<td>
	$row{$col}
	</td>
	</tr>
HTML
    }
	print<<HTML;
	</table>
	<br>
HTML

    # Add this row to the table, as a hashref
    push @table, \%row;
}