my %session;
eval {
    tie %session, 'Apache::Session::MySQL', $cookie, {
        ...
    }
}
if ($@) {
    #   error occurred in session information retrieval ?
}

if (exists $session{$cookie}) {

    # ... user session is still valid ...

} else {

    # ... user session no longer valid ...

}