veja abaixo o code
#!/usr/bin/perl
# Linha de localizaçã do perl
print "Content-type: text/html\n\n";
# Hearder
open(CONT,"contador.dat"); # abre o arquivo contador.dat
$cont=<CONT>; # poe seu conteudo no $cont
close(CONT); # fecha o arquivo
if(!$cont){ $cont = "1"; } # se $cont não tiver nada, ele passar a ter o valor "1"
print "$cont visita(s)"; # imprimi total de visitas
$cont++; # soma +1 a $cont
open(COUNT,">contador.dat"); # abre o arquivo contador.dat para grava novo valor
print COUNT "$cont"; #imprimi valor de $cont no arquivo
close(COUNT); # fecha o arquivoEspero que sirva para algo
flw
