Set up cookie:

if (&checkLoginPassword){
chomp $Name;

my $cookie_out = cookie(
-name=>"TEST_COOKIE",
-value=>"$Name",
-expires=>'+8h',
-path=>'/',
-secure=>0
);

print header(-cookie=>$cookie_out);

sub checkLoginPassword{
if(param('Password')) { $LoginPassword = param('Password'); }
else {
$LoginPassword = $I{'LoginPassword'};
}
chomp($LoginPassword);

#$salt = 2245324;

#$tempval = crypt($LoginPassword, $salt);
#print "$u_p{$I{'LoginName'}} $$LoginPassword this is pwd $pwd, word $word, salt $salt, tempval $tempval\n";exit();

# if (crypt($LoginPassword, $salt) ne $u_p{$Name}) {
#print "$u_p{$I{'LoginName'}} $LoginPassword this is pwd $pwd, word $u_p{$Name}, salt $salt, tempval $tempval\n";
if (($LoginPassword) ne $u_p{$Name}) {
return 0;
} else {
return 1;
}
}

--------------------------------------------------

print cookie on page and check if cookie is exsits:

print header();
my $cookie_in = cookie("TEST_COOKIE");
if(($cookie_in eq "collateral")||($cookie_in eq "presscoverage")||($cookie_in eq "pressrelease")){

}