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