#!/usr/bin/perl

$file="news.blt";

open (NEWS, "$file");
@list=<NEWS>;
close (NEWS);

print "Content-type: text/html\n\n";

print "<table border=0>";
@list=reverse(@list);
for ($i=0;$i<@list;$i++)
  {
  	($data,$news)=split(/::/,$list[$i]);
  	print "<tr><td valign=top align=right><font size=-1 face=tahoma color=red>$data</font></td>";
  	print "<td><font face=tahoma size=-1 color=black>$news</td></tr>\n";
  }
print "</table>";