#!/usr/bin/perl -w
use CGI qw(:standard);
use strict;
print "Content-Type: text/html\n\n";
print "Ôîðóì\n";
print "";
print " Íàø ôîðóì.
";
print "
";
open (FORUMLIST,")
{
$i++;
print "$line";
print "
";
}
close (FORUMLIST);
print "
";
print "Äîáàâèòü òåìó";
print "";