#!/usr/bin/perl
print "\n\n\n<table><tr><td><b>NEWS</b></td><td></td></tr><tr><td></td><td><table>\n\n";

$i=0;
while(<>){
	chomp;
	if ($i%2==0) {
		$color="ffffff";
	}
	else {
		$color="bbbbbb";
	}
	@my_line=split("\t");
	print "<tr bgcolor='$color'><td>$my_line[0]</td><td>$my_line[1]</td></tr>\n";
	$i++;
}

print "\n</table></td></tr></table>\n\n\n";