Используем SSI+немного правим скрипт и страницу.
В форме в параметре ACTION задайте урл этой же страницы (напр form.shtml) и важно(!) METHOD=GET
и на эту страницу добавьте строку:
Должно получиться.
Сам скрипт несколько изменим:
#!/usr/bin/perl
use vars qw(%config %icons $in $result);
use CGI qw(:cgi);
$in = new CGI;
require "config.conf";
$table=\'adm_ofdoc\';
if ($in->param(\'action\')){
my ($action) = $in->param(\'action\');
my ($dayss) = $in->param(\'dayss\');
my ($yearss) = $in->param(\'yearss\');
my ($vid) = $in->param(\'vid\');
$result="Вам осталось жить: $dayss!";
}
else {$result=\'Введите данные!\';}
$|++;
print $in->header(\'text/html\');
print $result;
Честно скажу - не пробовал
но по логике должно сработать.
if ($in->param(\'action\')) - проверка того, что скрипту передали данные.