sub setup {
    my $self = shift; # some sort of CGI::Application
    $self->run_modes(
           'mode1' => 'some_sub_by_name', 
           'mode2' => \&some_other_sub_by_ref
    );
    $self->authen->protected_runmodes('mode1');
}

##</code><code>##

if ($config->{LOGIN_SESSION_TIMEOUT} && !$self->{is_new_login} && $self->username) {