# in der main
sub CGI::Session::is_expires{
    my $self = shift;
}