...mmm...yo haría lo siguiente...Tendría un .txt que almacene solamente un número, para empezar el 0.
y cada vez que se ejecute el cgi que abra el archivo, lo lea, le sume uno y guarde el nuevo número...Fácil no???
Acá te tiro un código
Código:
#leemos la data
open (DATABASE, "<contador.txt") || &error('abrir','archivo');
flock (DATABASE,1)||&error('lock','file'); #solo si usas linux
$numero = <DATABASE>;
close (DATABASE) || &error('cerrar','archivo');
#hacemos los calculos
$numero = $numero + 1;
#guardamos la data
open (DATABASE, ">contador.txt") || &error('abrir','archivo');
flock (DATABASE,2)||&error('lock','file');
print DATABASE "$numero";
close (DATABASE) || &error('cerrar','archivo');
Bueno, como verás es bastante fácil...Lo que puedes hacer también es captar la IP del usuario para almacenarla tambien...y si se repuite muchas veces ya sabes que ese IP es alguien molesto...Para captar la ip puedes
my $user_ip = $ENV{'REMOTE_ADDR'};
Para aprender más sobre bases de datos tipo texto (TXT) he escrito varios tutoriales en
www.perlenespanol.com al respecto
Saludos y Espero que te sirva !!!