#!/usr/bin/perl

use warnings;
use CGI;
use CGI::Session;

$cgi=new CGI;

if (CredentialsOK($user,$pwd)){
        $sesion=new CGI::Session();
        $sesion->param('userlogged',$user);
        print $sesion->header(-location=>"web.pl");
        $sesion->flush();
}
 else {
        print $cgi->redirect(-uri=>"login.html");
}


##</code><code>##

#!/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();
       }