Файл счётчика был создан мною сразу же, но он не менялся, я проверил, насчёт SSI я всё же надеюсь, на это... Шуры нет жалко, я бы так не мучался :
Так что надо поправить, так и не понял...
(#!/usr/bin/perl
# открыть на чтение/запись
open (LOG, "+<dealcount.txt");
# заблокировать от других
flock(LOG,2);
$deal = <LOG>;
$deal++;
# перейти опять в начало файла
seek(LOG,0,0);
print LOG "$deal\n";
# отрезать чтоб не рос
truncate(LOG,tell(LOG));
# отдать на растерзание другим процессам
flock(LOG,8);
close(LOG);
$dealmore = $deal + 1;
open (NEWLOG, ">dealcount.txt");
print NEWLOG "$dealmore";
close NEWLOG;
$counter = "<font color="red"><small>Запишите этот номер:<b> $dealmore</b></font></small>\n";
print "Content-Type: text/html\n\n";
print $counter;
exit;
