#!/usr/bin/perl

use warnings;
use CGI;
use CGI::Session;
use HTML::Template;

$cgi=new CGI;
$sesion=CGI::Session->load($cgi);
$plantilla=HTML::Template->new(filename => 'web.html');

$sesion=CGI::Session->load();
if (($sesion->is_expired) || ($sesion->is_empty)) {
        print $cgi->redirect(-uri=>"login.html");
} else {
        print $cgi->header();
        print $plantilla->output();
       }