#!/usr/bin/perl -w
use strict;
use CGI qw (:standart);
my $Objekt=new CGI;
my $Menu = $Objekt->param("menu");
my $content;
if($Menu eq "news"){
open LIST, "< news.txt";
$content=;
close(LIST);
}elseif($Menu eq "history"){
open LIST, "< history.txt";
$content=;
close(LIST);
}else{
open LIST, "< about.txt";
$content=;
close(LIST);
}
print "Content-type: text/html; Charset=windows-1251\\n\\n";
print $content;
exit;
Гы. Вот примерно так:-) Фукнкциональности это конечно не прибавит:-))) Но пальцы гнуть можно, что у тебя всё на скриптах завязано:-)))) Кстати добавляй что не только на скриптах, но ещё и на базах, всё равно никто проверить не сможет:-))) Тока когда пальцы будешь гнуть потолок не поцарапай;-))
А ещё лучше послушай YA, дело говорит;)
