#!/usr/bin/perl
use strict;
my %para;
my $html;
my $linea;

$ENV{DOCUMENT_ROOT}.='/' if $ENV{DOCUMENT_ROOT};
my $hoy = time;


require $ENV{DOCUMENT_ROOT}.'_adm/incs/Generales.pm';



open (ARCHI, $ENV{DOCUMENT_ROOT}.'online/tpl/biblioteca.htm')||die $!."- biblioteca.pl<br>\n";

while ($linea = <ARCHI>){
	$html .= $linea;
}
close ARCHI;
$html =Generales::procesarEstatico($html);