#!perl
$newsfile = '../www/paraldey/news.txt';

print "Content-Type:text/html\n\n";
open(NEWS, $newsfile) || die "Файл не найден!";

while(<NEWS>) # построчное считывание
{
($date, $title, $article) = split('::'); # "::" - разделитель записей
print "\n\n";
print "<p><i>$date</i> <a href=$article><font size=+1>$title</font></a>\n";
}
close(NEWS);

# Внутри HTML-страницы указываем, в каком ее месте нужно вставить
# (с помощью SSI) результат действия скрипта:
# <!--#include virtual="/cgi-bin/sitenews.pl"-->