#This is array to read from bottom to top.
my @all_array;
open(FILE,"$datadir/$datafile") || &Errormsg("Please correct your path or chmod of database.");
while (<FILE>) {
    @_ = split /\|/;
    my $hash_ref = {
        DATE => $_[0],
        TITLE => $_[1],
        URL => $_[2],
        COMMENTS => $_[3],
    };
push @all_array, $hash_ref;
}
close(FILE);
foreach (reverse @all_array) {
    print "<table width=\"100%\" border=\"1\" cellspacing=\"0\" cellpadding=\"3\">";
    print "  <tr>";
    print "    <td><font color=\"orange\"><b>$_->{'TITLE'}</b></font><br><font size=\"1\">Posted - $_->{'DATE'}</font></td>";
    print "  </tr>";
    print "  <tr>";
    print "    <td>$_->{'COMMENTS'} (<a href=\"$_->{'URL'}\" target=\"_blank\">more information</a>)</td>";
    print "  </tr>";
    print "</table><br>";
}