#!/usr/bin/perl $path = "../header"; opendir(ICONSDIR, $path); local(@files) = readdir (ICONSDIR); closedir(ICONSDIR); shift @files; shift @files; $azar = (int(rand($#files)) + time()) % ($#files + 1 ); $msg=<

Desde Agosto del 2000,
hubo
visitas.

EOF print $msg;