#!/usr/bin/perl
#

print "content-type:text/html\n\n";



open(contador, "contador.txt");
$acessos = <contador>;            
close(contador);                
$acessos++;                   
open(contador, ">contador.txt");  
print contador $acessos;          
close(contador);  
 
$rest = substr($acessos, 0, 1); 
$mil = substr($acessos, 1, 3);
$cent = substr($acessos, 4, 6); 
$ace = $acessos % 1000; 
$t = time();

if ($ace eq 987){
open(contador, ">$acessos.txt");  
print contador $acessos;          
close(contador);
}
              
print "<B><font size='4'>$rest.$mil.$cent";