Hola!!! te inserto el código de un contador.
Si no lo ves claro mandame un e-mail.
#!/usr/local/bin/perl
$|=1;
#*Este script ha sido realizado por:
#* Eduard Garcia Castelló (NoCoDe)
#*Email´s:
#*
[email protected] #*
[email protected] #* ®1994-2000. El Grupo de Chapuzeros.
#Assignación del nombre del fichero. Definible por el
#usuario.
$nombre_fichero="contador";
#Esta opcion se utiliza para substituir la / por el _.
#Esto es factible si el fichero es el nombre de la pàgina.
$nombre_fichero=~ s{/}{_}g;
$fichero_contador="$nombre_fichero\.dat";
$fichero_bloqueo="$nombre_fichero\.blq";
$seg_blq=3;
#Cabezera de salida del contador.
#Esta cabezera se prodia modificar para que enviara imagenes.
print "content-type: text/html\n\n";
#Miramos si el fichero contador exixte.
if (-e "$fichero_contador"){
open (CUENTA,"$fichero_contador");
$linea= <CUENTA>;
#Si la linea existe, leemos hasta el caracter \n y lo combertimos
#ha un entero.
chop($linea) if $linea=~/\n$/;
close(CUENTA);
#Incrementamos el valor de la linea.
$linea ++;
}else{
#Si el fichero no exixte asignamos a linea el valor 1.
$linea=1;
}
#Realizamos el bloqueo del contador.
if(&Bloqueo($seg_blq,
