#!usr/bin/perl

# Arquivo de Visitas
$arq = "status.txt";

# Lê o arquivo
open ("ARQ","$arq");
$visitas = <ARQ>;
close (ARQ);

# Rotina que exibe o valor
# de $visitas como 0 se não existir
# o arquivo de visitas ainda
if ($visitas eq "") {
 $visitas = 0;
}

# Incrementa o $visitas
$visitas++;

# Grava no arquivo
open ("VIS",">$arq");
print VIS "$visitas";
close (VIS);

# Printa no HTML
print "Content-type: text/html\n\n";
print qualquer|
<font color="#000000" face="verdana" size="2">$visitas acessos registrados.</font>
|;