#!/usr/local/bin/perl
print <<"EOF";
Content-type: text/html
SNMP: Fundamentos
SNMP - Fundamentos
EOF
$arquivo="counter.dat";
open X,$arquivo;
while() {
$acesso = $_;
}
close X;
$acesso++;
open X, "> $arquivo";
printf X "%d",$acesso;
close X;
print <<"EOF2";
Você é o curioso $acesso.
Sugestões e/ou comentários:
EOF2