Help for this page
#!/usr/bin/perl use warnings; ... my $username = $session->param('username'); #continue...
my $s = CGI::Session->load($session_id); if ( $s->is_expired ) {...