#!/usr/bin/perl -w

use strict;

# Soporte de CGI, para que se pueda usar desde una página web.
use CGI qw/:standard/;
# Envía los encabezados de "Content-Type y charset" que son obligatorios.
print header;

# Abre el archivo y lee el número actual.
my $archivo = "/var/www/visitas.txt"; 
open(ARCHIVO,"<$archivo") || die "No pude abrir el archivo $archivo, Error : $!\n"; 
my $cantidad = <ARCHIVO>;
close(ARCHIVO);

# Le saca el último caracter si es un \n o un \r\n, 
# luego incrementa el número
chomp($cantidad);
$cantidad++;

# Guarda el nuevo número en el archivo.
open(ARCHIVO,">$archivo") || die "No pude abrir el archivo $archivo, Error : $!\n";
print ARCHIVO $cantidad;
close(ARCHIVO);

# Devuelve el nuevo número
print "$cantidad\n";