Select Code to Download

    $s= CGI::Session->new();
    $s->expire("+30m");
...
    $s->param('email', $res{'email'});
    $s->param('id', $res{'id'});
    $s->flush();

sub check_session {
    my ($obj,$s,$q)= @_;
...
    return 1; # it's active
    return 0; # it's dead
    }