Select Code to Download

$session->param('mid' => $id_from_db);
$session->param('member_type' => $member_type_id_from_db);
$session->param("~logged-in", 1);
$session->expires("~logged-in", "+120m"); # expires ~logged-in flag in
+ 30 mins

sub cgiapp_init {
 # application object
...
 # send session to header
 $session->header();    
}

sub cgiapp_prerun {
 # application object
...
 my $trials = $session->param("~login-trials") || 0;
 return $session->param("~login-trials", ++$trials);
}