#!/usr/bin/perl -wT

use CGI qw/:standard -debug/;

open(INFILE, 'news.txt');
@news = <INFILE>;

print header();
print start_html(-title=>'News in Perl!',
		 -style=>'../content.css');

print h3('SWAT News');
print a({-href=>'../protected/addnews.html'}, 'Add');
foreach (@news){
    print $_;
}

print end_html();